ActiveX Textbox properties using VBA

gmaxey · #3 10-03-2015, 04:40 AM

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

Code:

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

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
Add custom doc properties in "Doc properties control"	eazysnatch	Word	2	09-13-2017 08:08 PM
Updating Document Properties without using advanced properties dialogue	thedr9wningman	Word VBA	3	01-20-2014 05:56 PM
Display result in textbox based on the input of another textbox	scarymovie	Word VBA	5	05-16-2012 07:05 PM
How to insert a hyperlink in activex textbox	Joe Patrick	Word VBA	1	10-03-2011 06:03 AM
ActiveX	Cquinn	Outlook	0	02-08-2006 06:22 PM