piccolo_legionario, 25/11/2019 12.30:
Grazie Domenico, come posso fare per impostare una macro che lo faccia? Posso preparare dei files esterni da andare a prendere delle dimensioni della casella in cui andrei a metterli, ma non so come fare la macro, purtroppo sono a digiuno di programmazione.. mi puoi aiutare?
Ciao
io ti posso dare un suggerimento ma capisci bene che se non sai proprio nulla, la cosa diventa difficile.
Non puoi chiedere un lavoro "chiavi in mano".
1) crea una cartella con le tue immagini
2) non ha importanza la dimensione delle immagini perchè le adattiamo alla cella con il codice
3) dimensiona una cella qualsiasi in larghezza ed altezza come vuoi tu
4) adatta le prime due righe del codice al tuo percorso ed al nome di 1 foto (jpg) qualsiasi per le prove
5) posizionati sulla cella che hai dimensionato ed esegui in seguente codice
Poi ovviamente devi cominciare a capirci qualcosa.
Saluti
(il seguente codice inserisce una foto che si chiama MiaImmagine.jpg nella cella attiva e la adatta alle dimensioni della cella stessa)
Sub insImg()
mPath = "C:\Foto" 'cambiare percorso delle foto
mFoto = "MiaImmagine" ' nome foto senza estensione
If Dir(mPath & "\" & mFoto & ".jpg") <> "" Then ' se la foto esiste
With ActiveSheet.Pictures.Insert(mPath & "\" & mFoto & ".jpg")
.ShapeRange.LockAspectRatio = msoFalse
mTop = ActiveCell.Top
mLeft = ActiveCell.Left
mHeight = ActiveCell.Height
mWidth = ActiveCell.Width
.Top = mTop
.Left = mLeft
.Width = mWidth
.Height = mHeight
End With
Else
MsgBox "Foto inesistente"
End If
End Sub
[Modificato da dodo47 25/11/2019 16:16]
Domenico
Win 10 - Excel 2016