Hi Guessed,I tried the InputBox, it works as a standalone sub. Just not sure how to link to my rotation macros, do I need to assign the value for rotation seperately for the InputBox selections? I tried deleting out degrees after the rotation value, and making it a private sub, each time replacing the rotation value with "PickOne". I guess I am going to have to combine Macro r and Macro R into one, with the permutations executing after the InputBox in an or scenario? Thanks James Martin
Code:
Sub MacrorSelectedImage()
Application.ScreenUpdating = False
Dim iShp As InlineShape, Shp As Shape
For Each iShp In Selection.Inlineshapes
'For Sub MacroRSelectAllImages() insert this line:
'For Each iShp In ActiveDocument.InlineShapes
With iShp
If .Type = wdInlineShapePicture Then
Set Shp = .ConvertToShape
With Shp
.Rotation = 90
.ConvertToInlineShape
End With
End If
End With
Next
Application.ScreenUpdating = True
End Sub
Quote:
Originally Posted by Guessed
The best choice would be to create a userform where you can design an interface to give the users the best experience.
The simplest coding choice is to use an InputBox and tell them what to enter via a key
Code:
Sub PickOne()
Dim iResp As Integer, sMsg As String
sMsg = "Selected Pictures:" & vbCr & " Type 1 for 90 degrees" & vbCr & _
" Type 2 for 180 degrees" & vbCr & " Type 3 for -90 degrees" & vbCr & vbCr & _
"All Pictures:" & vbCr & " Type 4 for 90 degrees" & vbCr & _
" Type 5 for 180 degrees" & vbCr & " Type 6 for -90 degrees"
iResp = InputBox(sMsg, "Make a Selection", "1")
Debug.Print iResp
End Sub
|