Adattare immagine a cella excel

ciao
potresti farlo nel seguente modo

ipotizziamo che tu abbia un range di celle unite B2:C8, pertanto 7 righe e 2 colonne

- ti posizioni nel range (quindi in pratica excel ti segnala B2 nella casella Nome in alto a sinistra.
dopo l'istruzione
With ActiveSheet.Pictures.Insert(mPa......

valorizzi le seguenti variabili

mTop = ActiveCell.Top
mLeft = ActiveCell.Left
mHeight = Range(ActiveCell.Address & ":" & ActiveCell.Offset(6).Address).Height
mWidth = Range(ActiveCell.Address & ":" & ActiveCell.Offset(, 1).Address).Width
(dove 6 e 1 sono rispettivamente le righe(-1) di cui è composto il range unito e le colonne(-1)
e quindi
.Top = mTop
.Left = mLeft
.Width = mWidth
.Height = mHeight

saluti