Macro to insert shape

macropod · #4 03-13-2022, 05:03 PM

Here is some code to get you started:

Code:

Sub Demo()
Application.ScreenUpdating = False
Dim Shp As Shape, Rng As Range, Hght As Single, Wdth As Single
Hght = InchesToPoints(0.5):  Wdth = InchesToPoints(2)
With ActiveDocument
  Set Rng = Selection.Range.Characters.First
  Set Shp = .Shapes.AddShape(Type:=msoShapeRectangularCallout, _
    Left:=Rng.Information(wdHorizontalPositionRelativeToPage), _
    Top:=Rng.Information(wdVerticalPositionRelativeToPage) - Hght, _
    Width:=Wdth, Height:=Hght, Anchor:=Rng)
  .Tables.Add Range:=Shp.TextFrame.TextRange, Numrows:=1, numcolumns:=2
  Shp.TextFrame.TextRange.Characters.Last.Font.Hidden = True
End With
Application.ScreenUpdating = True
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Word 2016 how to insert a text shape into a word doc ?	zillah	Word	2	11-14-2019 03:27 AM
Add a macro to a shape	guest_gast	Word VBA	12	07-07-2018 02:20 AM
Assign Macro to Shape in Word 2013	tunes10590	Word VBA	8	01-29-2015 06:26 AM
Easy means to access/insert frequently used Shape	rdy4trvl	Drawing and Graphics	5	09-16-2012 08:12 AM
Run Macro & Activate shape	ibrahimaa	Excel Programming	1	01-21-2012 02:14 AM