Problem sizing jpg in Excel using VBA

[Berend Botje]

Hi all,

I am inserting a picture, then resizing it to be the correct size. After resizing, the user must choose one of the 4 options represented in the picture. Unfortunately, I have a problem here, because the sizing of the picture does not work if I run the program. The result is that the picture is too small for
the user to identify the 4 options. Why doesn't the sizing work?

I hope I explained the problem clearly enough. If you have questions, just post them.

Yours truly,

Berend Botje

P.s. Here is the code I use:


Sub RotatieSelectie(Unit As String)
Dim WSActive As Worksheet
Dim i As Integer

Set WSActive = ActiveSheet
PictureSheet.Activate
ActiveSheet.Pictures.Insert("C:\MyDir\Picture1.jpg").Select
Call SizePicture
Rotatiehoek = InputBox("Choose please. (1-4)", "Choose", "1", 400)
WSActive.Activate
Set WSActive = Nothing
End Sub

Sub SizePicture
Selection.ShapeRange.Height = 300
End Sub