VBA To Resize image

[Theglyde]

Hi guys I tried multiple image resize codes and none work for me. I feel it should be simple but I will explain what I am trying to do


I have an image already inserted on my excel sheet

I want to be able to click the image and then click button that will resize not keeping ratio to 2.28”Height
3.77” width
and then put in Cell D9 which is already sized for that…

Sorry I do not have any code since none I tried work and did not want to confuse anyone

 

[BSALV]

roughly this

Sub MyShape()
     Set sh = ActiveSheet
     Set c = sh.Range("D9")
     With sh.Shapes("myshape")
          .Left = c.Left
          .Top = c.Top
          .Width = c.Offset(, 1).Left - c.Left - 0.1            'adapt width to the width of the cell
          .Height = c.Offset(1).Top - c.Top - 0.1
     End With
     
End Sub

 

[Theglyde]

It gives me error at

With sh.Shapes (“myshape”)

 

[BSALV]

i didn't know the name of your shape, so change that with the real name of your shape.
you find that name in the top left corner of excel just under the ribbon, if you select that shape.

 

[Theglyde]

Still not working, I do lots of VbA and this is baffling me ? The picture is never the same picture or name

I assume some VbA must work.

Literally just what ever picture I click before hitting the button to get it to change size and then go in specific Cell

I assumed it would be with Active.shape
and Range but I can’t get it to work

 

[BSALV]

Sub MyShape()
     Set sh = ActiveSheet
     Set c = sh.Range("D9")

     With Selection.ShapeRange 'your actual selected shape
          .Left = c.Left
          .Top = c.Top
          .Width = c.Offset(, 1).Left - c.Left - 0.1            'adapt width to the width of the cell
          .Height = c.Offset(1).Top - c.Top - 0.1
     End With

End Sub

an interesting property is "LockAspectRatio" if you want or don't want the width and height locked.