Acquista i nostri libri consigliati su Amazon.it
+ Rispondi al messaggio
Visualizzazione dei risultati da 1 a 8 su 8

Salvataggio Immagini incorporate su foglio Excel

  1. #1
    L'avatar di Hollywood
    Hollywood non è in linea Scolaretto
    Post
    307
    Like Inviati  
    0
    Like Ricevuti  
    0
    Buongiorno e Buon Anno a tutti.
    Capita che con del codice VB metto delle immagini su di un foglio Excel, ma quando salvo il foglio non vengono salvate, ovvero mi servirebbe trovare la maniera di "incorporare" le immagini.
    A completezza di informazione, tale foglio viene salvato su di un percorso di rete, dichiarato "attendibile". Uso Office 2016...
    Grazie tutti coloro che potranno aiutarmi.
    Saluti

  2. #2
    Post
    1,819
    Like Inviati  
    0
    Like Ricevuti  
    4
    Quote Originariamente inviato da Hollywood Visualizza il messaggio
    ...
    Capita che con del codice VB metto delle immagini su di un foglio Excel, ma quando salvo il foglio non vengono salvate,
    Che codice usi per inserire le immagini e come fai il salvataggio?

  3. #3
    Sgrubak non è in linea Scribacchino
    Post
    537
    Like Inviati  
    9
    Like Ricevuti  
    3
    Serve sapere come le metti le immagini sul foglio. Puoi mostrare il codice della routine?

    EDIT: Sovrapposto a Phil...

  4. #4
    L'avatar di Hollywood
    Hollywood non è in linea Scolaretto
    Post
    307
    Like Inviati  
    0
    Like Ricevuti  
    0
    Ecco qui il codice…
    Con questo carico l'immagine e la posiziono, poi salvo il file
    Alla riapertura del file, da un altro PC nella stessa rete, l'immagine non c'è più.
    Ma questo a prescindere dal codice. Ovvero il file che vedo dopo la riga 9 ha l'immagine regolarmente.
    L'immagine manca quando apro la copia salvata con la riga 8
    Dim sPark As String
    sPark = App.Path & "\Barcode.bmp"
    cApp.Worksheets(2).Pictures.Insert(sPark).Select
    cApp.Worksheets(2).Shapes(1).Select
    cApp.Worksheets(2).Pictures(2).Top = 320
    cApp.Worksheets(2).Pictures(2).Left = 600
    cApp.DisplayAlerts = False
    cApp.ActiveWorkbook.SaveAs FileName:=SvFile
    cApp.Visible = True
    
    Grazie ancora

  5. #5
    Sgrubak non è in linea Scribacchino
    Post
    537
    Like Inviati  
    9
    Like Ricevuti  
    3
    Farei un tentativo con il metodo Shapes.AddPicture.

    Ma se il tuo intento è quello di mostrare un codice a barre, credo che la soluzione più consona sia quella di mettere il valore in una cella ed impostare il font per il barcode. Così non devi impazzire a prendere l'immagine ed il file è molto più leggero in fatto di dimensioni.

  6. #6
    L'avatar di TheTruster
    TheTruster non è in linea Moderatore Globale Ultimo blog: Mouse Wheel in Visual Basic 6 - ActiveX
    Post
    7,214
    Blogs
    3
    Like Inviati  
    17
    Like Ricevuti  
    9
    Il problema potrebbe risiedere nell'uso dell'oggetto Pictures.
    Prova ad utilizzare il Metodo AddPicture dell'oggetto Shapes:

    cApp.Worksheets(2).Shapes.AddPicture Filename:=App.Path & "\Barcode.bmp", _
                linktofile:=msoFalse, savewithdocument:=msoCTrue, _
                left:=600, top:=320, width:=100, height:=100
    
    TheTruster

    Edit: ops... sovrapposto con sgrubak, con cui concordo riguardo il font per il codice a barre. Ovviamente poi, nel caso di distribuzione del file, bisognerà occuparsi di fornire anche il Font e provvedere alla sua installazione sulla macchina.
    Ultima modifica di TheTruster; 13-01-2021 16:36 
    ℹ️ Leggi di più su TheTruster ...

  7. #7
    L'avatar di Hollywood
    Hollywood non è in linea Scolaretto
    Post
    307
    Like Inviati  
    0
    Like Ricevuti  
    0
    Ho appena provato e sembra funzionare alla grande.
    Per il discorso barcode, questo è solo un esempio, in quanto una caso particolare, in realtà in altra posizione del progetto inserisco immagini "standard" su di un foglio Excel ed, ovviamente, ho lo stesso problema.
    Vorrei aggiungere che questo progetto "gira" da tantissimo tempo e sono certo che con versioni precedenti di Office, tale comportamento era diverso.
    Saluti a tutti e grazie ancora.
    A.
    Ultima modifica di Hollywood; 14-01-2021 16:23  Motivo: Applicato suggerimento ottenuto

  8. #8
    Sgrubak non è in linea Scribacchino
    Post
    537
    Like Inviati  
    9
    Like Ricevuti  
    3
    Quote Originariamente inviato da Hollywood Visualizza il messaggio
    Vorrei aggiungere che questo progetto "gira" da tantissimo tempo e sono certo che con versioni precedenti di Office, tale comportamento era diverso.
    Beh questo è parecchio strano... Assicurati, giusto per scaramanzia, che [Opzioni -> Impostazioni Avanzate -> Opzioni di visualizzazione per il foglio di lavoro] sia impostato su "Tutto" e non su "Niente (nascondi oggetti)". Io ho la 2019, quindi potrebbe esserci qualcosina di diverso se hai un'altra versione di Excel.

+ Rispondi al messaggio

Potrebbero interessarti anche ...

  1. Salvare immagini di foglio Excel da VB
    Da Hollywood nel forum Microsoft Excel
    Risposte: 5
    Ultimo Post: 23-07-2019, 22:04
  2. Opzioni salvataggio di foglio excel stampato da access
    Da follegot nel forum Microsoft Word
    Risposte: 4
    Ultimo Post: 06-03-2016, 12:24
  3. Estrarre immagini incorporate in pulsanti / form
    Da redcell nel forum Microsoft Access
    Risposte: 2
    Ultimo Post: 05-06-2014, 13:29
  4. problema immagini incorporate in maschera access 2010
    Da Maurimai nel forum Microsoft Access
    Risposte: 0
    Ultimo Post: 28-10-2012, 12:27
  5. Salvataggio foglio Excel & avviso
    Da roccolamann nel forum Microsoft Excel
    Risposte: 1
    Ultimo Post: 03-06-2011, 13:44