Importare immagini

Hai un problema con Excel?

Nuova discussione

Importare immagini
di vba excel 2010 (utente non iscritto) data: 29/09/2014 11:25:26
Ciao a tutti,
avrei l'esigenza di creare un pulsante che una volta cliccato, importi un'immagine chiamata ad esempio FOTO1.jpeg e la incolli nella cella(1,1) prendendola dalla cartella D:pippo

Qualcuno può darmi una dritta? grazie!!
di lepat (utente non iscritto) data: 29/09/2014 11:47:06
il nome della foto dove sta ? in una cella ? devi importarne più di una ? allega un file di esempio

di lepat (utente non iscritto) data: 29/09/2014 11:54:37
un esempio di codice

Sub caricaAccantoAlNome() ' foglio1
Dim cell, shp As Shape
    fpath = "D:pippo"
    Set Rng = ActiveSheet.Range("a2:a4") ' nomi delle foto
    For Each cell In Rng
       nomefile = fpath & cell & ".jpg"
       cell.Offset(0, 1).Select
       ActiveSheet.Pictures.Insert(nomefile).Select
       With Selection.ShapeRange.Item(1)
          .LockAspectRatio = msoTrue
          .Width = 50
          .Height = 50
       End With
    Next
   
End Sub

di excel vba 2010 (utente non iscritto) data: 29/09/2014 13:51:29
CIao Lepat, c'è modo di adattare le dimensioni della foto alle dimensioni della cella?
di lepat (utente non iscritto) data: 29/09/2014 15:58:48
Hai risposto alle mie domande ?
di Vba excel 2010 (utente non iscritto) data: 02/10/2014 10:43:29
Ciao Lepat, purtroppo per gravi motivi non ho potuto risponderti prima...

La macro non esiste ancora altrimenti te l'avrei allegata volentieri, per ora ho creato solo il file modello dove inserire i dati.

In pratica:

il nome della foto si trova da (1,16) ad (1,25) ed è una stringa formata da Cognome Nome

la foto si chiamerà quindi "Cognome Nome.JPEG" e dovrà essere importata nella stessa riga nella colonna 45.. ti allego il modello del file su cui importare le immagini
di lepat (utente non iscritto) data: 02/10/2014 11:25:16
hai chiesto di adattare le dimensioni della foto alle dimensioni della cella, le celle della colonna 45 sono piccolissime e non capisco perché
di Excel VBA 2010 (utente non iscritto) data: 02/10/2014 13:01:14
Sono piccole perchè conterranno una firma.. volendo si possono allargare non è un problema
di lepat (utente non iscritto) data: 02/10/2014 14:35:21
quindi tu vuoi l'immagine della firma in una cella larga 3 mm ?

di lepat (utente non iscritto) data: 02/10/2014 14:48:45
contento tu ....

Sub a()
Dim cell, shp As Shape
    fpath = "D:pippo"
    Set Rng = ActiveSheet.Range("a16:a19") ' nomi 
    For Each cell In Rng
       nomefile = fpath & cell & ".jpeg"
       cell.Offset(0, 34).Select
       w = Selection.Width
       h = Selection.Height
       ActiveSheet.Pictures.Insert(nomefile).Select
       With Selection.ShapeRange.Item(1)
          .LockAspectRatio = msoTrue
          .Width = w
          .Height = h
       End With
    Next
End Sub

Vuoi Approfondire?