ActiveX Textbox properties using VBA

[kyeung]

Hi all,

So basically I have created a command button in the word document and I want it to create a new ActiveX Textboxes everytime I press it. I want it to preset to a certain Height and Width and with MultiLine and Vertical Scrollbar Enabled. Since I am not very familiar to VBA so I used the Record Macro option in the Developer tab. Here is the code:

************************************************** ***********
Sub ButtonForSoftwareOutputs()
'
' ButtonForSoftwareOutputs Macro
'
'
Selection.MoveRight Unit:=wdCharacter, Count:=2
Selection.InlineShapes.AddOLEControl ClassType:="Forms.TextBox.1"
ActiveDocument.ViewPropertyBrowser
ActiveDocument.ViewPropertyBrowser
ActiveDocument.ViewPropertyBrowser
ActiveDocument.ViewPropertyBrowser
Selection.MoveLeft Unit:=wdCharacter, Count:=1
Selection.TypeParagraph
End Sub

************************************************** ***********

However, an error message pop up saying that "The ViewProperrtyBrowser method or property is not available because the current selection is an active control".



How should I write the code so that it can change the property of the ActiveX textbox? Thanks!

[gmayor]

Maybe something like

Dim orng As Range
Dim octrl As Object
    Set orng = ActiveDocument.Range
    orng.Collapse 0
    Set octrl = orng.InlineShapes.AddOLEControl(ClassType:="Forms.TextBox.1")
    octrl.Height = InchesToPoints(0.25)
    octrl.Width = InchesToPoints(3)
    orng.InsertParagraphAfter

[gmaxey]

You will need to take Graham's suggestion a bit further to set all of the properties you are after:

Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oCtrl As InlineShape
  With Selection
    .MoveRight Unit:=wdCharacter, Count:=2
    Set oCtrl = .InlineShapes.AddOLEControl(ClassType:="Forms.TextBox.1", Range:=.Range)
    .MoveLeft Unit:=wdCharacter, Count:=1
    .TypeParagraph
  End With
  With oCtrl.OLEFormat.Object
    .Height = 18
    .Width = 200
    .MultiLine = True
    .ScrollBars = 2
  End With
lbl_Exit:
  Exit Sub
End Sub

[gmayor]

Originally Posted by gmaxey

You will need to take Graham's suggestion a bit

I was relying on your old maxim about teaching someone to fish.

[gmaxey]

I don't use ActiveX controls in documents myself so in this case I had to do a lot of fishing. Looks easy served on the platter, but I broke several lines and hit several snags before landing the guppy ;-)

[kyeung]

Thanks!! You guys are genius!