Hi,
I built a macro to scale shapes the way the user wants it. The funny thing is, it works but goes to error at the same time. I guess it is not a big thing that went wrong with my code (otherwise it wouldn't work), but I'm too blind for it. Can anyone help me to get rid of the error message, which appears anytime I run the macro?
Thanks so much!
RG
Sub ScalingTool()
Dim shp As Shape
Dim Message As String
Dim Title As String
Dim Default As Integer
Dim MyValue As Integer
On Error GoTo err
Message = "Please enter value in % (but without the %-sign)"
Title = "ScalingTool InputBox"
Default = "100"
MyValue = InputBox(Message, Title, Default)
For Each shp In ActiveWindow.Selection.ShapeRange
shp.Width = shp.Width / 100 * MyValue
shp.Height = shp.Height / 100 * MyValue
Next
err:
MsgBox "Select at least one shape"
End Sub