ciao
capisci bene che non sono in grado di capire il perchè senza vedere un file.
Creane uno essenziale compresa lòa Uform dettagliando bene cosa fare.
L'errore 424 sembra dire che manchi l'oggetto del .Top, ma.......
Comunque ti allego un test:
Nella stessa cartella dove copi l'allegato metti una foto chiamata MiaFoto.jpg (o cambia nome nel codice)
saluti
Questo il codice contenuto:
Sub InsFoto()
mFile = ActiveWorkbook.Path & "\MiaFoto.jpg"
nRighe = Range("D4").MergeArea.Rows.Count
nColonne = Range("D4").MergeArea.Columns.Count
Range("D4").Select
Selection.UnMerge
With ActiveSheet.Pictures.Insert(mFile)
.ShapeRange.LockAspectRatio = msoFalse
mTop = ActiveCell.Top
mLeft = ActiveCell.Left
mHeight = Range(ActiveCell.Address & ":" & ActiveCell.Offset(5).Address).Height
mWidth = Range(ActiveCell.Address & ":" & ActiveCell.Offset(, 2).Address).Width
.Top = mTop
.Left = mLeft
.Width = mWidth
.Height = mHeight
End With
Range(ActiveCell.Address & ":" & ActiveCell.Offset(5, 2).Address).Merge
End Sub[Modificato da dodo47 03/03/2023 10:18]
Domenico
Win 10 - Excel 2016