Good tutorials for ListBox /CombiBox (tweaking MsgBox)?

James Martin · #3 09-22-2021, 03:45 PM

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

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Could somebody help me with the code of my VBA userforms(Combibox - saving - editing of data)	19339	Excel Programming	2	09-14-2018 12:06 AM
anyone knows any good tutorials on recording macros in Word?	thanh	Word	1	08-16-2017 06:16 AM
Good tutorials on recording macros in Microsoft Word	nathan123	Word VBA	2	05-22-2015 10:54 AM
Good tutorials on macros	karen.drummond2	Word VBA	2	04-04-2013 07:33 AM
Good Tutorials for Reccording Macro's	Rohan	Word	1	01-09-2010 11:08 AM