Condividi:        

Excel creare jpg

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Excel creare jpg

Postdi saxas » 23/08/16 09:47

Salve a tutti, devo creare un file jpg di un foglio excel ed ho trovato in rete il seguente codice
Codice: Seleziona tutto
Option Explicit

Private Declare PtrSafe Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
Private Declare PtrSafe Function GetClipboardData Lib "user32" (ByVal wFormat As Integer) As Long
Private Declare PtrSafe Function CloseClipboard Lib "user32" () As Long
Private Declare PtrSafe Function OleCreatePictureIndirect Lib "olepro32.dll" _
(PicDesc As uPicDesc, RefIID As GUID, ByVal fPictureOwnsHandle As Long, _
IPic As IPicture) As Long

'\\ Declare a UDT to store a GUID for the IPicture OLE Interface
Private Type GUID
    Data1 As Long
    Data2 As Integer
    Data3 As Integer
    Data4(0 To 7) As Byte
End Type

'\\ Declare a UDT to store the bitmap information
Private Type uPicDesc
    Size As Long
    Type As Long
    hPic As Long
    hPal As Long
End Type

Private Const CF_BITMAP = 2
Private Const PICTYPE_BITMAP = 1

Private Sub SaveRangePic(SourceRange As Range, FilePathName As String)


    Dim IID_IDispatch As GUID
    Dim uPicinfo As uPicDesc
    Dim IPic As IPicture
    Dim hPtr As Long

    '\\ Copy Range to ClipBoard
    SourceRange.CopyPicture Appearance:=xlScreen, Format:=xlBitmap
    OpenClipboard 0
    hPtr = GetClipboardData(CF_BITMAP)
    CloseClipboard

    '\\ Create the interface GUID for the picture
    With IID_IDispatch
        .Data1 = &H7BF80980
        .Data2 = &HBF32
        .Data3 = &H101A
        .Data4(0) = &H8B
        .Data4(1) = &HBB
        .Data4(2) = &H0
        .Data4(3) = &HAA
        .Data4(4) = &H0
        .Data4(5) = &H30
        .Data4(6) = &HC
        .Data4(7) = &HAB
    End With
   
    '\\ Fill uPicInfo with necessary parts.
    With uPicinfo
        .Size = Len(uPicinfo) '\\ Length of structure.
        .Type = PICTYPE_BITMAP '\\ Type of Picture
        .hPic = hPtr '\\ Handle to image.
        .hPal = 0 '\\ Handle to palette (if bitmap).
    End With

   '\\ Create the Range Picture Object
   OleCreatePictureIndirect uPicinfo, IID_IDispatch, True, IPic

    '\\ Save Picture Object
    stdole.SavePicture IPic, FilePathName
   
End Sub

Sub Salva_Immagine()
  SaveRangePic Sheets("GIORNALIERA Operai").Range("E1:S60"), "C:\Immagine_01.JPG"
End Sub


il problema è che lo dovrò utilizzare con varie versioni di Excel, dalla 2010 alla 2016, il problema che mi si pone nel 2016 è che ho dovuto inserire nel linea di codice
Codice: Seleziona tutto
Private Declare PtrSafe Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
il PtrSafe altrimenti mi dava errore, e poi va in debug dicendo che manca il file "olepro32.dll" dopo varie prove non sono riuscito a capire come risolvere,

invece con excel 2010 non accetta il PtrSafe

come posso risolvere c'è un qualche altro sistema per poter creare il file jpg?
grazie
Win10 - Office 2016 Ita
saxas
Utente Junior
 
Post: 55
Iscritto il: 14/11/13 16:58

Sponsor
 

Re: Excel creare jpg

Postdi Anthony47 » 24/08/16 23:32

Il problema non e' la versione di Windows ma la versione di SistemaOperativo (32 /64 bit).
Codice: Seleziona tutto
Devi usare la compilazione condizionata; esempio:
#If Win64 Then
'qui le dichiarazioni valide solo per Window 64 bit
#Else
'qui le dichiarazioni valide solo per Windows 32 bit
#End If
'Qui eventuali dichiarazioni comuni
'Codice

Se devi creare dei jpg di modeste parti del foglio allora puoi usare la Sub convertiImm() pubblicata qui: viewtopic.php?f=26&t=83835&start=20#p478997

Visto il tuo codice, le modifiche da apportare al codice lì pubblicato sono
Codice: Seleziona tutto
MySheet=" GIORNALIERA Operai "       '<<< Il foglio da "fotografare"
MyArea = "E1:S60"                    '<<< La tua area da fotografare

Codice: Seleziona tutto
OutFile = "C:\Immagine_01.JPG"

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19182
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Excel creare jpg

Postdi saxas » 25/08/16 01:06

La soluzione proposta nel topic che mi hai indicato è perfetta, con la ricerca che avevo fatto non l'avevo vista....
domanda l'immagine che crea è esattamente quella che si vede a video, vorrei sapere se esiste la possibilità di non far vedere i pulsanti creati per attivare le macro, come avviene quando si manda in stampa....
Win10 - Office 2016 Ita
saxas
Utente Junior
 
Post: 55
Iscritto il: 14/11/13 16:58

Re: Excel creare jpg

Postdi Anthony47 » 26/08/16 00:47

La soluzione proposta nel topic che mi hai indicato è perfetta, con la ricerca che avevo fatto non l'avevo vista....
domanda l'immagine che crea è esattamente quella che si vede a video, vorrei sapere se esiste la possibilità di non far vedere i pulsanti creati per attivare le macro, come avviene quando si manda in stampa...


Ovviamente modificherai da Appearance:=xlScreen a
Codice: Seleziona tutto
    Selection.CopyPicture Appearance:=xlPrinter , Format:=xlBitmap


Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19182
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Excel creare jpg

Postdi saxas » 26/08/16 11:35

con questa modifica mi da un errore

Errore di run-time '1004':
Errore nel metodo CopyPicture per la classe Range.

Eliminando il ", Format:=xlBitmap" funziona ma si comporta nello stesso identico modo del precedente codice, in sostanza si vedono tutti i pulsanti di comando creati per selezionare le macro.
Win10 - Office 2016 Ita
saxas
Utente Junior
 
Post: 55
Iscritto il: 14/11/13 16:58

Re: Excel creare jpg

Postdi Anthony47 » 26/08/16 23:54

In effetti la combinazione Appearance:=xlPrinter , Format:=xlBitmap non funziona ne' in XL2003 ne' in XL2010 (errore 1004).
In Xl2003 la combinazione Appearance:=xlPrinter , Format:=xlPicture funziona e produce il risultato atteso.
In XL2010 la stessa combinazione funziona ma copia anche eventuali controlli (anche se la proprieta' Stampa oggetto e' disabilitata)
Tutto questo non trova riscontro nella documentazione Microsoft...

A questo punto ti suggerisco di tornare alla combinazione Appearance:=xlScreen, Format:=xlBitmap e nascondere gli oggetti che non vuoi vedere. Esempio:
Codice: Seleziona tutto
'codice
CommandButton1.Visible  = False
Selection.CopyPicture Appearance:=xlScreen, Format:=xlBitmap
CommandButton1.Visible  = True
'codice

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19182
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Excel creare jpg

Postdi saxas » 29/08/16 18:18

Niente da fare mi va in errore nella riga commandbutton1

ci sono presenti 15 pulsanti a cui ho cambiato il nome, forse devo mettere un qualche nome come Pulsante dei moduli ho cambiato la riga da CommandButton1.Visible = False a Pulsante87_Click.Visible = False ma non funziona lo stesso all'interno del foglio ci sono 15 pulsanti
Win10 - Office 2016 Ita
saxas
Utente Junior
 
Post: 55
Iscritto il: 14/11/13 16:58

Re: Excel creare jpg

Postdi Anthony47 » 30/08/16 01:56

Da nascondere sono i pulsanti che vuoi eliminare dall'immagine; quindi non necessariamente sono da nascondere tutti e 15...
Il nome del pulsante selezionato lo vedi nella "Casella Nome", e da lì puoi cambiarlo. Se sono ActiveX allora puoi gestirlo anche dalla finestra Proprieta'.
L'informazione "mi va in errore nella riga commandbutton1" non puo' accendere nessuna luce.

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19182
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "Excel creare jpg":


Chi c’è in linea

Visitano il forum: Anthony47 e 25 ospiti