ActiveX Textbox properties using VBA

gmaxey · #1 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

gmayor · #2 10-03-2015, 04:55 AM

Quote:

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.

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