Resize Shape

[galileogali]

I have got a Image (on Worksheet):
ActiveSheet.Shapes("Image 1")
and

wdt = Range("A1").ColumnWidth
hgt = Range("A1").RowHeight

How do I get to match the shape sizes to the size of the cell?

ActiveSheet.Shapes("Image 1").Width = wdt
ActiveSheet.Shapes("Image 1").Height = hgt

In this way does not work well

 

[VoG]

Try

Sub piccy()
With ActiveSheet.Shapes("Image 1")
    .LockAspectRatio = False
    .Top = Range("A1").Top
    .Left = Range("A1").Left
    .Height = Range("A1").RowHeight
    .Width = Range("A1").Width
End With
End Sub

 

[galileogali]

.LockAspectRatio = False "Braaaaaavo!!!!!!

Vog: sincerely: Thank you very,very much....

Regards