Immagini in Excel

[luca75000]

Uso da diverso tempo il comando

ActiveSheet.Pictures.Insert(sImmagine)

ma mi sono accorto che non inserisce l'immagine ma solo il collegamento. So che inserendo l'immagine appesantisco il file ma non posso gestirlo diversamente.
Ho provato a registrare macro sia inserendo l'immagine che il suo collegamento, ma il compilatore automatico mi da sempre lo stesso comando.

Avete qualche suggerimento?

Grazie.

[alfrimpa]

Ciao Luca

Non capisco.

Con questa macro

Codice: Seleziona tutto

Sub prova()
Dim sImmagine As String
sImmagine = "c:\prova\33.jpg"
ActiveSheet.Pictures.Insert (sImmagine)
End Sub

Viene inserita l'immagine e non il collegamento.

[Anthony47]

Ciao luca75000, benvenuto nel forum; ciao Alfredo.
Da XL2010 l'istruzione Pictures.Insert inserisce il collegamento invece che l'immagine.
Passa a usare Shapes.AddPicture, ad esempio:

Codice: Seleziona tutto

ActiveSheet.Shapes.AddPicture(picname, msoFalse, msoTrue, ActiveCell.Left, ActiveCell.Top, ActiveCell.Width, ActiveCell.Height)


Questa inserisce l'immagine sulla cella attiva e adatta le dimensioni alla cella.
Per un esempio piu' completo puoi guardare cosa suggerito ad altro utente qui:
viewtopic.php?t=104043#p606614

Se non risolvi con questi spunti allora descrivi bene cosa vorresti fare e la struttura dei tuoi dati.

Ciao

[luca75000]

Grazie,
funziona, cos'è msoFalse e msoTrue?

[luca75000]

trovato l'istruzione completa, grazie.