explicitly naming shapes, groups, etc, in macros for Word drawings?

  • Thread starter Mad Scientist Jr
  • Start date
M

Mad Scientist Jr

see the macros below - paste these into a Word document

and run macro testDraw1 - it should work

a green blob dances around the screen

But try running the macro testDraw2

and you will see problems with lines like

ActiveDocument.Shapes("Line 5").Select

it seems when the line shape was created,

Word auto-enumerated some internal counter of that particular shape,
and auto-named the shape using that counter (ie "Line 5")

and if you try to play the macro later

that counter might be reset, and thus the shape name would be
different,

ie, what was "Line 5" when the macro was created, might be
"Line 2" for someone else playing back the macro.
and the macro won't work for playback

The answer would be to edit the macro to explicitly name the shape in a
line like

ActiveDocument.Shapes.AddShape(msoShapeOval, 86.25, 166.4, 61.85,
65.2). _
Select

This also is the case with group objects, for instance "myGroup"

ActiveDocument.Shapes.Range(Array("Oval 2", "Rectangle 3", "Line
4", _
"Line 5" _
, "Line 6", "Line 7")).Select
Selection.ShapeRange.Group.Select

so that later you can reference it with

ActiveDocument.Shapes("myGroup").Select

instead of some default name like

ActiveDocument.Shapes("Group 8").Select

Can someone say how to explicitly name shapes and groups, in code such
as below? (Actual samples would be most helpful)

Thanks...




Public Declare Function GetTickCount Lib "kernel32.dll" () As Long

Sub subTimer(iMilliseconds As Integer)
Dim iTickCount As Long
DoEvents
iTickCount = GetTickCount
Do While (GetTickCount - iTickCount) < iMilliseconds
Loop
DoEvents
End Sub

Sub testDraw1()

ActiveDocument.Shapes.AddShape(msoShapeOval, 98.5, 205.8, 58.4,
59.1). _
Select
Application.WindowState = wdWindowStateMaximize
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(0, 128, 0)
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 0.75
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.ForeColor.RGB = RGB(0, 0, 0)
Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Rotation = 0#
Selection.ShapeRange.Left = 98.6
Selection.ShapeRange.Top = 205.9
Selection.ShapeRange.RelativeHorizontalPosition = _
wdRelativeHorizontalPositionColumn
Selection.ShapeRange.RelativeVerticalPosition = _
wdRelativeVerticalPositionParagraph

Call subTimer(100)

Selection.ShapeRange.Left = InchesToPoints(0.12)
Selection.ShapeRange.Top = InchesToPoints(1.86)

Call subTimer(100)

Selection.ShapeRange.LockAnchor = False
Selection.ShapeRange.LayoutInCell = True
Selection.ShapeRange.WrapFormat.AllowOverlap = True
Selection.ShapeRange.WrapFormat.Side = wdWrapBoth
Selection.ShapeRange.WrapFormat.DistanceTop = InchesToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceBottom = InchesToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceLeft = InchesToPoints(0.13)
Selection.ShapeRange.WrapFormat.DistanceRight =
InchesToPoints(0.13)
Selection.ShapeRange.WrapFormat.Type = 3
Selection.ShapeRange.ZOrder 4

Call subTimer(100)

Selection.ShapeRange.IncrementLeft 16.3
Selection.ShapeRange.IncrementTop 1.4

Call subTimer(100)

Selection.ShapeRange.IncrementLeft 12.95

Call subTimer(100)

Selection.ShapeRange.IncrementLeft 15.6
Selection.ShapeRange.IncrementTop 2.05

Call subTimer(100)

Selection.ShapeRange.IncrementLeft 14.3

Call subTimer(100)

Selection.ShapeRange.IncrementLeft 33.25
Selection.ShapeRange.IncrementTop 6.8

Call subTimer(100)

Selection.ShapeRange.IncrementLeft 29.2
Selection.ShapeRange.IncrementTop 3.4

Call subTimer(100)

Selection.ShapeRange.IncrementLeft 29.2
Selection.ShapeRange.IncrementTop -1.4

Call subTimer(100)

Selection.ShapeRange.IncrementLeft 45.5
Selection.ShapeRange.IncrementTop -4.05

Call subTimer(100)

Selection.ShapeRange.IncrementLeft 38.05
Selection.ShapeRange.IncrementTop -6.1

Call subTimer(100)

Selection.ShapeRange.IncrementLeft 46.9
Selection.ShapeRange.IncrementTop -16.3

Call subTimer(100)

Selection.ShapeRange.IncrementLeft 31.2
Selection.ShapeRange.IncrementTop -33.3

Call subTimer(100)

Selection.ShapeRange.IncrementLeft 34.65
Selection.ShapeRange.IncrementTop -50.95

Call subTimer(100)

Selection.ShapeRange.IncrementLeft 14.25
Selection.ShapeRange.IncrementTop -32.6

Call subTimer(100)

Selection.ShapeRange.IncrementLeft -53#
Selection.ShapeRange.IncrementTop -13.55

Call subTimer(100)

Selection.ShapeRange.IncrementLeft -70.65
Selection.ShapeRange.IncrementTop -10.2

Call subTimer(100)

Selection.ShapeRange.IncrementLeft -64.55
Selection.ShapeRange.IncrementTop 43.5

Call subTimer(100)

Selection.ShapeRange.IncrementLeft -56.35
Selection.ShapeRange.IncrementTop 51.65

Call subTimer(100)

Selection.ShapeRange.IncrementLeft -68.6
Selection.ShapeRange.IncrementTop 5.4

Call subTimer(100)

Selection.ShapeRange.IncrementLeft -61.85
Selection.ShapeRange.IncrementTop -40.8

Call subTimer(100)

Selection.ShapeRange.IncrementLeft -1.35
Selection.ShapeRange.IncrementTop -41.4

Call subTimer(100)

Selection.ShapeRange.IncrementLeft 53.65
Selection.ShapeRange.IncrementTop -12.9

Call subTimer(100)

Selection.ShapeRange.IncrementLeft 57.05
Selection.ShapeRange.IncrementTop 10.2

Call subTimer(100)

Selection.ShapeRange.IncrementLeft 38.75
Selection.ShapeRange.IncrementTop 42.1

Call subTimer(100)

Selection.ShapeRange.IncrementLeft 14.9
Selection.ShapeRange.IncrementTop 36#

Call subTimer(100)

Selection.ShapeRange.IncrementLeft 2.05
Selection.ShapeRange.IncrementTop 48.95

Call subTimer(100)

Selection.ShapeRange.IncrementLeft -20.35
Selection.ShapeRange.IncrementTop 57.7

Call subTimer(100)

Selection.ShapeRange.ScaleHeight 2.07, msoFalse,
msoScaleFromTopLeft
Selection.ShapeRange.ScaleWidth 1.47, msoFalse,
msoScaleFromBottomRight

Call subTimer(100)

Selection.ShapeRange.IncrementLeft -36.65
Selection.ShapeRange.IncrementTop -2.7

Call subTimer(100)

Selection.ShapeRange.IncrementLeft -42.15
Selection.ShapeRange.IncrementTop -10.85

Call subTimer(100)

Selection.ShapeRange.IncrementLeft -11.55
Selection.ShapeRange.IncrementTop -37.35

Call subTimer(100)

Selection.ShapeRange.ScaleWidth 1.21, msoFalse,
msoScaleFromBottomRight
Selection.ShapeRange.ScaleHeight 1.33, msoFalse,
msoScaleFromBottomRight


Call subTimer(100)
Selection.ShapeRange.IncrementLeft 36#
Selection.ShapeRange.IncrementTop -35.3

Call subTimer(100)
Selection.ShapeRange.IncrementLeft 34.65
Selection.ShapeRange.IncrementTop -17.7

Call subTimer(100)

Selection.ShapeRange.ScaleWidth 1.61, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 1.06, msoFalse,
msoScaleFromBottomRight

Call subTimer(100)
Selection.ShapeRange.IncrementLeft 86.25
Selection.ShapeRange.IncrementTop 4.1

Call subTimer(100)
Selection.ShapeRange.IncrementLeft 46.2
Selection.ShapeRange.IncrementTop -28.55

Call subTimer(100)
Selection.ShapeRange.IncrementLeft 46.85
Selection.ShapeRange.IncrementTop -8.8

Call subTimer(100)
Selection.ShapeRange.IncrementLeft 38.7
Selection.ShapeRange.IncrementTop 45.5

Call subTimer(100)
Selection.ShapeRange.ScaleWidth 1.26, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 1.5, msoFalse, msoScaleFromTopLeft

Call subTimer(100)
Selection.ShapeRange.IncrementLeft -30.6
Selection.ShapeRange.IncrementTop 57.7

Call subTimer(100)
Selection.ShapeRange.ScaleWidth 1.23, msoFalse,
msoScaleFromBottomRight
Selection.ShapeRange.ScaleHeight 1.07, msoFalse,
msoScaleFromTopLeft

Call subTimer(100)
Selection.ShapeRange.IncrementLeft -71.35
Selection.ShapeRange.IncrementTop 89#

Call subTimer(100)
Selection.ShapeRange.ScaleWidth 1.49, msoFalse,
msoScaleFromBottomRight
Selection.ShapeRange.ScaleHeight 1.13, msoFalse,
msoScaleFromBottomRight

Call subTimer(100)
Selection.ShapeRange.IncrementLeft -31.9
Selection.ShapeRange.IncrementTop -111.4

Call subTimer(100)
Selection.ShapeRange.ScaleWidth 1.07, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 1.15, msoFalse,
msoScaleFromBottomRight

Call subTimer(100)
Selection.ShapeRange.IncrementLeft 52.95
Selection.ShapeRange.IncrementTop -44.85

Call subTimer(100)
Selection.ShapeRange.ScaleHeight 1.13, msoFalse,
msoScaleFromTopLeft

Call subTimer(100)
Selection.ShapeRange.IncrementLeft 57.7
Selection.ShapeRange.IncrementTop 104.6

Call subTimer(100)
Selection.ShapeRange.ScaleWidth 1.34, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 1.14, msoFalse,
msoScaleFromBottomRight

End Sub

Sub testDraw2()
ActiveDocument.Shapes.AddShape(msoShapeOval, 86.25, 166.4, 61.85,
65.2). _
Select
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(0, 0, 255)
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 0.75
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.ForeColor.RGB = RGB(0, 0, 0)
Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Rotation = 0#
Selection.ShapeRange.Left = 86.4
Selection.ShapeRange.Top = 166.3
Selection.ShapeRange.RelativeHorizontalPosition = _
wdRelativeHorizontalPositionColumn
Selection.ShapeRange.RelativeVerticalPosition = _
wdRelativeVerticalPositionParagraph
Selection.ShapeRange.Left = InchesToPoints(-0.05)
Selection.ShapeRange.Top = InchesToPoints(1.31)
Selection.ShapeRange.LockAnchor = False
Selection.ShapeRange.LayoutInCell = True
Selection.ShapeRange.WrapFormat.AllowOverlap = True
Selection.ShapeRange.WrapFormat.Side = wdWrapBoth
Selection.ShapeRange.WrapFormat.DistanceTop = InchesToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceBottom = InchesToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceLeft = InchesToPoints(0.13)
Selection.ShapeRange.WrapFormat.DistanceRight =
InchesToPoints(0.13)
Selection.ShapeRange.WrapFormat.Type = 3
Selection.ShapeRange.ZOrder 4
ActiveDocument.Shapes.AddShape(msoShapeRectangle, 103.25, 235#,
29.9, _
61.85).Select
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(51, 102, 255)
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 0.75
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.ForeColor.RGB = RGB(0, 0, 0)
Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Rotation = 0#
Selection.ShapeRange.Left = 102.95
Selection.ShapeRange.Top = 234.7
Selection.ShapeRange.RelativeHorizontalPosition = _
wdRelativeHorizontalPositionColumn
Selection.ShapeRange.RelativeVerticalPosition = _
wdRelativeVerticalPositionParagraph
Selection.ShapeRange.Left = InchesToPoints(0.18)
Selection.ShapeRange.Top = InchesToPoints(2.26)
Selection.ShapeRange.LockAnchor = False
Selection.ShapeRange.LayoutInCell = True
Selection.ShapeRange.WrapFormat.AllowOverlap = True
Selection.ShapeRange.WrapFormat.Side = wdWrapBoth
Selection.ShapeRange.WrapFormat.DistanceTop = InchesToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceBottom = InchesToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceLeft = InchesToPoints(0.13)
Selection.ShapeRange.WrapFormat.DistanceRight =
InchesToPoints(0.13)
Selection.ShapeRange.WrapFormat.Type = 3
Selection.ShapeRange.ZOrder 4
ActiveDocument.Shapes.AddLine(105.3, 298.85, 105.3, 349.15).Select
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 4.5
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.ForeColor.RGB = RGB(0, 0, 255)
Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
Selection.ShapeRange.Line.BeginArrowheadLength =
msoArrowheadLengthMedium
Selection.ShapeRange.Line.BeginArrowheadWidth =
msoArrowheadWidthMedium
Selection.ShapeRange.Line.BeginArrowheadStyle = msoArrowheadNone
Selection.ShapeRange.Line.EndArrowheadLength =
msoArrowheadLengthMedium
Selection.ShapeRange.Line.EndArrowheadWidth =
msoArrowheadWidthMedium
Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadNone
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Rotation = 0#
Selection.ShapeRange.Left = 105.1
Selection.ShapeRange.Top = 298.8
Selection.ShapeRange.RelativeHorizontalPosition = _
wdRelativeHorizontalPositionColumn
Selection.ShapeRange.RelativeVerticalPosition = _
wdRelativeVerticalPositionParagraph
Selection.ShapeRange.Left = InchesToPoints(0.21)
Selection.ShapeRange.Top = InchesToPoints(3.15)
Selection.ShapeRange.LockAnchor = False
Selection.ShapeRange.LayoutInCell = True
Selection.ShapeRange.WrapFormat.AllowOverlap = True
Selection.ShapeRange.WrapFormat.Side = wdWrapBoth
Selection.ShapeRange.WrapFormat.DistanceTop = InchesToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceBottom = InchesToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceLeft = InchesToPoints(0.13)
Selection.ShapeRange.WrapFormat.DistanceRight =
InchesToPoints(0.13)
Selection.ShapeRange.WrapFormat.Type = 3
Selection.ShapeRange.ZOrder 4
ActiveDocument.Shapes.AddLine(131.1, 299.55, 131.1, 349.15).Select
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 6#
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.ForeColor.RGB = RGB(0, 0, 255)
Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
Selection.ShapeRange.Line.BeginArrowheadLength =
msoArrowheadLengthMedium
Selection.ShapeRange.Line.BeginArrowheadWidth =
msoArrowheadWidthMedium
Selection.ShapeRange.Line.BeginArrowheadStyle = msoArrowheadNone
Selection.ShapeRange.Line.EndArrowheadLength =
msoArrowheadLengthMedium
Selection.ShapeRange.Line.EndArrowheadWidth =
msoArrowheadWidthMedium
Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadNone
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Rotation = 0#
Selection.ShapeRange.Left = 131#
Selection.ShapeRange.Top = 299.5
Selection.ShapeRange.RelativeHorizontalPosition = _
wdRelativeHorizontalPositionColumn
Selection.ShapeRange.RelativeVerticalPosition = _
wdRelativeVerticalPositionParagraph
Selection.ShapeRange.Left = InchesToPoints(0.57)
Selection.ShapeRange.Top = InchesToPoints(3.16)
Selection.ShapeRange.LockAnchor = False
Selection.ShapeRange.LayoutInCell = True
Selection.ShapeRange.WrapFormat.AllowOverlap = True
Selection.ShapeRange.WrapFormat.Side = wdWrapBoth
Selection.ShapeRange.WrapFormat.DistanceTop = InchesToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceBottom = InchesToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceLeft = InchesToPoints(0.13)
Selection.ShapeRange.WrapFormat.DistanceRight =
InchesToPoints(0.13)
Selection.ShapeRange.WrapFormat.Type = 3
Selection.ShapeRange.ZOrder 4
ActiveDocument.Shapes.AddLine(78.1, 237.05, 101.2, 254.7).Select
Selection.ShapeRange.Flip msoFlipHorizontal
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 4.5
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.ForeColor.RGB = RGB(0, 0, 255)
Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
Selection.ShapeRange.Line.BeginArrowheadLength =
msoArrowheadLengthMedium
Selection.ShapeRange.Line.BeginArrowheadWidth =
msoArrowheadWidthMedium
Selection.ShapeRange.Line.BeginArrowheadStyle = msoArrowheadNone
Selection.ShapeRange.Line.EndArrowheadLength =
msoArrowheadLengthMedium
Selection.ShapeRange.Line.EndArrowheadWidth =
msoArrowheadWidthMedium
Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadNone
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Rotation = 0#
Selection.ShapeRange.Left = 77.75
Selection.ShapeRange.Top = 236.85
Selection.ShapeRange.RelativeHorizontalPosition = _
wdRelativeHorizontalPositionColumn
Selection.ShapeRange.RelativeVerticalPosition = _
wdRelativeVerticalPositionParagraph
Selection.ShapeRange.Left = InchesToPoints(-0.17)
Selection.ShapeRange.Top = InchesToPoints(2.29)
Selection.ShapeRange.LockAnchor = False
Selection.ShapeRange.LayoutInCell = True
Selection.ShapeRange.WrapFormat.AllowOverlap = True
Selection.ShapeRange.WrapFormat.Side = wdWrapBoth
Selection.ShapeRange.WrapFormat.DistanceTop = InchesToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceBottom = InchesToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceLeft = InchesToPoints(0.13)
Selection.ShapeRange.WrapFormat.DistanceRight =
InchesToPoints(0.13)
Selection.ShapeRange.WrapFormat.Type = 3
Selection.ShapeRange.ZOrder 4
ActiveDocument.Shapes("Line 5").Select
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 4.5
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.ForeColor.RGB = RGB(0, 0, 255)
Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
Selection.ShapeRange.Line.BeginArrowheadLength =
msoArrowheadLengthMedium
Selection.ShapeRange.Line.BeginArrowheadWidth =
msoArrowheadWidthMedium
Selection.ShapeRange.Line.BeginArrowheadStyle = msoArrowheadNone
Selection.ShapeRange.Line.EndArrowheadLength =
msoArrowheadLengthMedium
Selection.ShapeRange.Line.EndArrowheadWidth =
msoArrowheadWidthMedium
Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadNone
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Rotation = 0#
Selection.ShapeRange.Left = 131#
Selection.ShapeRange.Top = 299.5
Selection.ShapeRange.RelativeHorizontalPosition = _
wdRelativeHorizontalPositionColumn
Selection.ShapeRange.RelativeVerticalPosition = _
wdRelativeVerticalPositionParagraph
Selection.ShapeRange.Left = InchesToPoints(0.57)
Selection.ShapeRange.Top = InchesToPoints(3.16)
Selection.ShapeRange.LockAnchor = False
Selection.ShapeRange.LayoutInCell = True
Selection.ShapeRange.WrapFormat.AllowOverlap = True
Selection.ShapeRange.WrapFormat.Side = wdWrapBoth
Selection.ShapeRange.WrapFormat.DistanceTop = InchesToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceBottom = InchesToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceLeft = InchesToPoints(0.13)
Selection.ShapeRange.WrapFormat.DistanceRight =
InchesToPoints(0.13)
Selection.ShapeRange.WrapFormat.Type = 3
Selection.ShapeRange.ZOrder 4
ActiveDocument.Shapes.AddLine(135.15, 236.4, 156.9, 258.1).Select
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 4.5
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.ForeColor.RGB = RGB(0, 0, 255)
Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
Selection.ShapeRange.Line.BeginArrowheadLength =
msoArrowheadLengthMedium
Selection.ShapeRange.Line.BeginArrowheadWidth =
msoArrowheadWidthMedium
Selection.ShapeRange.Line.BeginArrowheadStyle = msoArrowheadNone
Selection.ShapeRange.Line.EndArrowheadLength =
msoArrowheadLengthMedium
Selection.ShapeRange.Line.EndArrowheadWidth =
msoArrowheadWidthMedium
Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadNone
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Rotation = 0#
Selection.ShapeRange.Left = 135.35
Selection.ShapeRange.Top = 236.15
Selection.ShapeRange.RelativeHorizontalPosition = _
wdRelativeHorizontalPositionColumn
Selection.ShapeRange.RelativeVerticalPosition = _
wdRelativeVerticalPositionParagraph
Selection.ShapeRange.Left = InchesToPoints(0.63)
Selection.ShapeRange.Top = InchesToPoints(2.28)
Selection.ShapeRange.LockAnchor = False
Selection.ShapeRange.LayoutInCell = True
Selection.ShapeRange.WrapFormat.AllowOverlap = True
Selection.ShapeRange.WrapFormat.Side = wdWrapBoth
Selection.ShapeRange.WrapFormat.DistanceTop = InchesToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceBottom = InchesToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceLeft = InchesToPoints(0.13)
Selection.ShapeRange.WrapFormat.DistanceRight =
InchesToPoints(0.13)
Selection.ShapeRange.WrapFormat.Type = 3
Selection.ShapeRange.ZOrder 4
ActiveDocument.Shapes.Range(Array("Oval 2", "Rectangle 3", "Line
4", _
"Line 5" _
, "Line 6", "Line 7")).Select
Selection.ShapeRange.Group.Select
ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft 33.3
Selection.ShapeRange.IncrementTop -34.65
ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft 25.15
Selection.ShapeRange.IncrementTop -20.35
ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft 43.45
Selection.ShapeRange.IncrementTop -26.5
ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft 30.55
Selection.ShapeRange.IncrementTop -6.1
ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft 30.55
Selection.ShapeRange.IncrementTop 4.05
ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft 12.2
Selection.ShapeRange.IncrementTop 17.65
Selection.ShapeRange.ScaleWidth 1.16, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 1.13, msoFalse,
msoScaleFromTopLeft
ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft 29.9
Selection.ShapeRange.IncrementTop 25.1
Selection.ShapeRange.ScaleWidth 1.41, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 1.16, msoFalse,
msoScaleFromTopLeft
ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft 20.35
Selection.ShapeRange.IncrementTop 36#
Selection.ShapeRange.ScaleWidth 1.08, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 1.1, msoFalse, msoScaleFromTopLeft
ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft 4.75
Selection.ShapeRange.IncrementTop 27.85
Selection.ShapeRange.IncrementRotation 5.24
ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft -19.05
Selection.ShapeRange.IncrementTop 26.5
Selection.ShapeRange.IncrementRotation 9.28
ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft -48.2
Selection.ShapeRange.IncrementTop 8.8
Selection.ShapeRange.IncrementRotation 8.64
ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft -31.25
Selection.ShapeRange.IncrementTop -9.55
Selection.ShapeRange.IncrementRotation 7.08
Selection.ShapeRange.ScaleWidth 0.84, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.91, msoFalse,
msoScaleFromTopLeft
ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft -36#
Selection.ShapeRange.IncrementTop -42.8
ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementRotation 17.49
ActiveDocument.Shapes("Group 8").Select
ActiveDocument.Shapes("Group 8").Select
ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.ScaleHeight 0.89, msoFalse,
msoScaleFromTopLeft
Selection.ShapeRange.ScaleWidth 0.66, msoFalse, msoScaleFromTopLeft
ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft 23.1
Selection.ShapeRange.IncrementTop -38#
Selection.ShapeRange.IncrementRotation 18.79
Selection.ShapeRange.ScaleHeight 0.83, msoFalse,
msoScaleFromTopLeft
ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft 10.2
Selection.ShapeRange.IncrementTop 19#
Selection.ShapeRange.IncrementRotation 9.53
Selection.ShapeRange.ScaleHeight 0.77, msoFalse,
msoScaleFromTopLeft
Selection.ShapeRange.ScaleWidth 0.68, msoFalse, msoScaleFromTopLeft
ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft 17#
Selection.ShapeRange.IncrementTop 29.9
Selection.ShapeRange.IncrementRotation 19.14
ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft -6.75
Selection.ShapeRange.IncrementTop 19.05
ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.ScaleHeight 0.76, msoFalse,
msoScaleFromTopLeft
Selection.ShapeRange.ScaleWidth 0.67, msoFalse,
msoScaleFromBottomRight
ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft -37.35
Selection.ShapeRange.IncrementTop 20.35
Selection.ShapeRange.IncrementRotation 37.2
ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.ScaleHeight 0.87, msoFalse,
msoScaleFromTopLeft
Selection.ShapeRange.ScaleWidth 0.68, msoFalse,
msoScaleFromBottomRight
ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft -22.4
Selection.ShapeRange.IncrementTop -15.6
Selection.ShapeRange.ScaleHeight 0.79, msoFalse,
msoScaleFromTopLeft
Selection.ShapeRange.ScaleWidth 1.36, msoFalse,
msoScaleFromBottomRight
Selection.ShapeRange.IncrementRotation 13.49
ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft 11.55
Selection.ShapeRange.IncrementTop -11.55
Selection.ShapeRange.IncrementRotation 21.12
Selection.ShapeRange.ScaleWidth 0.67, msoFalse,
msoScaleFromBottomRight
Selection.ShapeRange.ScaleHeight 0.61, msoFalse,
msoScaleFromTopLeft
ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft -7.5
Selection.ShapeRange.IncrementTop -4.75
Selection.ShapeRange.IncrementRotation 16.34
ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.ScaleWidth 0.72, msoFalse,
msoScaleFromBottomRight
Selection.ShapeRange.ScaleHeight 0.79, msoFalse,
msoScaleFromTopLeft
ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft -5.45
Selection.ShapeRange.IncrementTop -7.45
Selection.ShapeRange.IncrementRotation 18.06
ActiveDocument.Shapes("Group 8").Select
ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.ScaleWidth 0.71, msoFalse,
msoScaleFromBottomRight
Selection.ShapeRange.ScaleHeight 0.8, msoFalse, msoScaleFromTopLeft
ActiveDocument.Shapes("Group 8").Select
End Sub
 
T

Tony Jollans

I haven't read your code but to name shapes you can do something along these
lines ..

With ActiveDocument.Shapes.AddShape(msoShapeOval, 86.25, 166.4, 61.85,65.2)
.Name = "myOval"
End With

or set a reference, after which you can use the reference any way you like
....

Set myOval = ActiveDocument.Shapes.AddShape(msoShapeOval, 86.25, 166.4,
61.85,65.2)
 
M

Mad Scientist Jr

I got it working - but for recording on the fly, I am wondering how you
can control what the default numbering of the shapes is. For instance,
I closed Word then opened it anew and clicked [record macro]. Then I
drew some shapes and stopped recording. See "test1" below. Then I
recorded a 2nd macro ("test2" below) and simply selected the shapes.

My question - what controls how they are named? there is "Oval 2" ,
"Rectangle 3", "Autoshape 4", "Line 5". Assuming no matter what the
shape is, it just gets a consectuive number, why did the numbering
start at 2?

Is there any way to control (from code or another macro) where this
numbering begins? ie

set myNumberBase = 1

?

PS working drawing code follows -

Public Declare Function GetTickCount Lib "kernel32.dll" () As Long

Sub subTimer(iMilliseconds As Integer)
Dim iTickCount As Long
DoEvents
iTickCount = GetTickCount
Do While (GetTickCount - iTickCount) < iMilliseconds
Loop
DoEvents
End Sub

Sub testDraw2()
Dim oShape As Shape
Dim oShapeRange As ShapeRange

Set oShape = ActiveDocument.Shapes.AddShape(msoShapeOval, 86.25,
166.4, 61.85, 65.2)
oShape.Select
oShape.Name = "Oval 1"
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(0, 0, 255)
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 0.75
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.ForeColor.RGB = RGB(0, 0, 0)
Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Rotation = 0#
Selection.ShapeRange.Left = 86.4
Selection.ShapeRange.Top = 166.3
Selection.ShapeRange.RelativeHorizontalPosition = _
wdRelativeHorizontalPositionColumn
Selection.ShapeRange.RelativeVerticalPosition = _
wdRelativeVerticalPositionParagraph
Selection.ShapeRange.Left = InchesToPoints(-0.05)
Selection.ShapeRange.Top = InchesToPoints(1.31)
Selection.ShapeRange.LockAnchor = False
Selection.ShapeRange.LayoutInCell = True
Selection.ShapeRange.WrapFormat.AllowOverlap = True
Selection.ShapeRange.WrapFormat.Side = wdWrapBoth
Selection.ShapeRange.WrapFormat.DistanceTop = InchesToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceBottom = InchesToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceLeft = InchesToPoints(0.13)
Selection.ShapeRange.WrapFormat.DistanceRight =
InchesToPoints(0.13)
Selection.ShapeRange.WrapFormat.Type = 3
Selection.ShapeRange.ZOrder 4





Set oShape = ActiveDocument.Shapes.AddShape(msoShapeRectangle,
103.25, 235#, 29.9, 61.85)
oShape.Name = "Rect 1"
oShape.Select
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(51, 102, 255)
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 0.75
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.ForeColor.RGB = RGB(0, 0, 0)
Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Rotation = 0#
Selection.ShapeRange.Left = 102.95
Selection.ShapeRange.Top = 234.7
Selection.ShapeRange.RelativeHorizontalPosition = _
wdRelativeHorizontalPositionColumn
Selection.ShapeRange.RelativeVerticalPosition = _
wdRelativeVerticalPositionParagraph
Selection.ShapeRange.Left = InchesToPoints(0.18)
Selection.ShapeRange.Top = InchesToPoints(2.26)
Selection.ShapeRange.LockAnchor = False
Selection.ShapeRange.LayoutInCell = True
Selection.ShapeRange.WrapFormat.AllowOverlap = True
Selection.ShapeRange.WrapFormat.Side = wdWrapBoth
Selection.ShapeRange.WrapFormat.DistanceTop = InchesToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceBottom = InchesToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceLeft = InchesToPoints(0.13)
Selection.ShapeRange.WrapFormat.DistanceRight =
InchesToPoints(0.13)
Selection.ShapeRange.WrapFormat.Type = 3
Selection.ShapeRange.ZOrder 4




Set oShape = ActiveDocument.Shapes.AddLine(105.3, 298.85, 105.3,
349.15)
oShape.Name = "Line 1"
oShape.Select
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 4.5
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.ForeColor.RGB = RGB(0, 0, 255)
Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
Selection.ShapeRange.Line.BeginArrowheadLength =
msoArrowheadLengthMedium
Selection.ShapeRange.Line.BeginArrowheadWidth =
msoArrowheadWidthMedium
Selection.ShapeRange.Line.BeginArrowheadStyle = msoArrowheadNone
Selection.ShapeRange.Line.EndArrowheadLength =
msoArrowheadLengthMedium
Selection.ShapeRange.Line.EndArrowheadWidth =
msoArrowheadWidthMedium
Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadNone
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Rotation = 0#
Selection.ShapeRange.Left = 105.1
Selection.ShapeRange.Top = 298.8
Selection.ShapeRange.RelativeHorizontalPosition = _
wdRelativeHorizontalPositionColumn
Selection.ShapeRange.RelativeVerticalPosition = _
wdRelativeVerticalPositionParagraph
Selection.ShapeRange.Left = InchesToPoints(0.21)
Selection.ShapeRange.Top = InchesToPoints(3.15)
Selection.ShapeRange.LockAnchor = False
Selection.ShapeRange.LayoutInCell = True
Selection.ShapeRange.WrapFormat.AllowOverlap = True
Selection.ShapeRange.WrapFormat.Side = wdWrapBoth
Selection.ShapeRange.WrapFormat.DistanceTop = InchesToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceBottom = InchesToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceLeft = InchesToPoints(0.13)
Selection.ShapeRange.WrapFormat.DistanceRight =
InchesToPoints(0.13)
Selection.ShapeRange.WrapFormat.Type = 3
Selection.ShapeRange.ZOrder 4

Set oShape = ActiveDocument.Shapes.AddLine(131.1, 299.55, 131.1,
349.15)
oShape.Name = "Line 2"
oShape.Select
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 6#
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.ForeColor.RGB = RGB(0, 0, 255)
Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
Selection.ShapeRange.Line.BeginArrowheadLength =
msoArrowheadLengthMedium
Selection.ShapeRange.Line.BeginArrowheadWidth =
msoArrowheadWidthMedium
Selection.ShapeRange.Line.BeginArrowheadStyle = msoArrowheadNone
Selection.ShapeRange.Line.EndArrowheadLength =
msoArrowheadLengthMedium
Selection.ShapeRange.Line.EndArrowheadWidth =
msoArrowheadWidthMedium
Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadNone
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Rotation = 0#
Selection.ShapeRange.Left = 131#
Selection.ShapeRange.Top = 299.5
Selection.ShapeRange.RelativeHorizontalPosition = _
wdRelativeHorizontalPositionColumn
Selection.ShapeRange.RelativeVerticalPosition = _
wdRelativeVerticalPositionParagraph
Selection.ShapeRange.Left = InchesToPoints(0.57)
Selection.ShapeRange.Top = InchesToPoints(3.16)
Selection.ShapeRange.LockAnchor = False
Selection.ShapeRange.LayoutInCell = True
Selection.ShapeRange.WrapFormat.AllowOverlap = True
Selection.ShapeRange.WrapFormat.Side = wdWrapBoth
Selection.ShapeRange.WrapFormat.DistanceTop = InchesToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceBottom = InchesToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceLeft = InchesToPoints(0.13)
Selection.ShapeRange.WrapFormat.DistanceRight =
InchesToPoints(0.13)
Selection.ShapeRange.WrapFormat.Type = 3
Selection.ShapeRange.ZOrder 4

Set oShape = ActiveDocument.Shapes.AddLine(78.1, 237.05, 101.2,
254.7)
oShape.Name = "Line 3"
oShape.Select
Selection.ShapeRange.Flip msoFlipHorizontal
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 4.5
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.ForeColor.RGB = RGB(0, 0, 255)
Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
Selection.ShapeRange.Line.BeginArrowheadLength =
msoArrowheadLengthMedium
Selection.ShapeRange.Line.BeginArrowheadWidth =
msoArrowheadWidthMedium
Selection.ShapeRange.Line.BeginArrowheadStyle = msoArrowheadNone
Selection.ShapeRange.Line.EndArrowheadLength =
msoArrowheadLengthMedium
Selection.ShapeRange.Line.EndArrowheadWidth =
msoArrowheadWidthMedium
Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadNone
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Rotation = 0#
Selection.ShapeRange.Left = 77.75
Selection.ShapeRange.Top = 236.85
Selection.ShapeRange.RelativeHorizontalPosition = _
wdRelativeHorizontalPositionColumn
Selection.ShapeRange.RelativeVerticalPosition = _
wdRelativeVerticalPositionParagraph
Selection.ShapeRange.Left = InchesToPoints(-0.17)
Selection.ShapeRange.Top = InchesToPoints(2.29)
Selection.ShapeRange.LockAnchor = False
Selection.ShapeRange.LayoutInCell = True
Selection.ShapeRange.WrapFormat.AllowOverlap = True
Selection.ShapeRange.WrapFormat.Side = wdWrapBoth
Selection.ShapeRange.WrapFormat.DistanceTop = InchesToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceBottom = InchesToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceLeft = InchesToPoints(0.13)
Selection.ShapeRange.WrapFormat.DistanceRight =
InchesToPoints(0.13)
Selection.ShapeRange.WrapFormat.Type = 3
Selection.ShapeRange.ZOrder 4

ActiveDocument.Shapes("Line 2").Select
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 4.5
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.ForeColor.RGB = RGB(0, 0, 255)
Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
Selection.ShapeRange.Line.BeginArrowheadLength =
msoArrowheadLengthMedium
Selection.ShapeRange.Line.BeginArrowheadWidth =
msoArrowheadWidthMedium
Selection.ShapeRange.Line.BeginArrowheadStyle = msoArrowheadNone
Selection.ShapeRange.Line.EndArrowheadLength =
msoArrowheadLengthMedium
Selection.ShapeRange.Line.EndArrowheadWidth =
msoArrowheadWidthMedium
Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadNone
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Rotation = 0#
Selection.ShapeRange.Left = 131#
Selection.ShapeRange.Top = 299.5
Selection.ShapeRange.RelativeHorizontalPosition = _
wdRelativeHorizontalPositionColumn
Selection.ShapeRange.RelativeVerticalPosition = _
wdRelativeVerticalPositionParagraph
Selection.ShapeRange.Left = InchesToPoints(0.57)
Selection.ShapeRange.Top = InchesToPoints(3.16)
Selection.ShapeRange.LockAnchor = False
Selection.ShapeRange.LayoutInCell = True
Selection.ShapeRange.WrapFormat.AllowOverlap = True
Selection.ShapeRange.WrapFormat.Side = wdWrapBoth
Selection.ShapeRange.WrapFormat.DistanceTop = InchesToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceBottom = InchesToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceLeft = InchesToPoints(0.13)
Selection.ShapeRange.WrapFormat.DistanceRight =
InchesToPoints(0.13)
Selection.ShapeRange.WrapFormat.Type = 3
Selection.ShapeRange.ZOrder 4

Set oShape = ActiveDocument.Shapes.AddLine(135.15, 236.4, 156.9,
258.1)
oShape.Name = "Line 4"
oShape.Select
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 4.5
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.ForeColor.RGB = RGB(0, 0, 255)
Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
Selection.ShapeRange.Line.BeginArrowheadLength =
msoArrowheadLengthMedium
Selection.ShapeRange.Line.BeginArrowheadWidth =
msoArrowheadWidthMedium
Selection.ShapeRange.Line.BeginArrowheadStyle = msoArrowheadNone
Selection.ShapeRange.Line.EndArrowheadLength =
msoArrowheadLengthMedium
Selection.ShapeRange.Line.EndArrowheadWidth =
msoArrowheadWidthMedium
Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadNone
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Rotation = 0#
Selection.ShapeRange.Left = 135.35
Selection.ShapeRange.Top = 236.15
Selection.ShapeRange.RelativeHorizontalPosition = _
wdRelativeHorizontalPositionColumn
Selection.ShapeRange.RelativeVerticalPosition = _
wdRelativeVerticalPositionParagraph
Selection.ShapeRange.Left = InchesToPoints(0.63)
Selection.ShapeRange.Top = InchesToPoints(2.28)
Selection.ShapeRange.LockAnchor = False
Selection.ShapeRange.LayoutInCell = True
Selection.ShapeRange.WrapFormat.AllowOverlap = True
Selection.ShapeRange.WrapFormat.Side = wdWrapBoth
Selection.ShapeRange.WrapFormat.DistanceTop = InchesToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceBottom = InchesToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceLeft = InchesToPoints(0.13)
Selection.ShapeRange.WrapFormat.DistanceRight =
InchesToPoints(0.13)
Selection.ShapeRange.WrapFormat.Type = 3
Selection.ShapeRange.ZOrder 4

Set oShape = ActiveDocument.Shapes.Range(Array("Oval 1", "Rect 1",
"Line 1", "Line 2", "Line 3", "Line 4")).Group
oShape.Select
'Selection.ShapeRange.Group.Select
oShape.Name = "Group 8"

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft 33.3
Selection.ShapeRange.IncrementTop -34.65
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft 25.15
Selection.ShapeRange.IncrementTop -20.35
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft 43.45
Selection.ShapeRange.IncrementTop -26.5
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft 30.55
Selection.ShapeRange.IncrementTop -6.1
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft 30.55
Selection.ShapeRange.IncrementTop 4.05
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft 12.2
Selection.ShapeRange.IncrementTop 17.65
Selection.ShapeRange.ScaleWidth 1.16, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 1.13, msoFalse,
msoScaleFromTopLeft
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft 29.9
Selection.ShapeRange.IncrementTop 25.1
Selection.ShapeRange.ScaleWidth 1.41, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 1.16, msoFalse,
msoScaleFromTopLeft
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft 20.35
Selection.ShapeRange.IncrementTop 36#
Selection.ShapeRange.ScaleWidth 1.08, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 1.1, msoFalse, msoScaleFromTopLeft
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft 4.75
Selection.ShapeRange.IncrementTop 27.85
Selection.ShapeRange.IncrementRotation 5.24
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft -19.05
Selection.ShapeRange.IncrementTop 26.5
Selection.ShapeRange.IncrementRotation 9.28
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft -48.2
Selection.ShapeRange.IncrementTop 8.8
Selection.ShapeRange.IncrementRotation 8.64
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft -31.25
Selection.ShapeRange.IncrementTop -9.55
Selection.ShapeRange.IncrementRotation 7.08
Selection.ShapeRange.ScaleWidth 0.84, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.91, msoFalse,
msoScaleFromTopLeft
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft -36#
Selection.ShapeRange.IncrementTop -42.8
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementRotation 17.49
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.ScaleHeight 0.89, msoFalse,
msoScaleFromTopLeft
Selection.ShapeRange.ScaleWidth 0.66, msoFalse, msoScaleFromTopLeft
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft 23.1
Selection.ShapeRange.IncrementTop -38#
Selection.ShapeRange.IncrementRotation 18.79
Selection.ShapeRange.ScaleHeight 0.83, msoFalse,
msoScaleFromTopLeft
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft 10.2
Selection.ShapeRange.IncrementTop 19#
Selection.ShapeRange.IncrementRotation 9.53
Selection.ShapeRange.ScaleHeight 0.77, msoFalse,
msoScaleFromTopLeft
Selection.ShapeRange.ScaleWidth 0.68, msoFalse, msoScaleFromTopLeft
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft 17#
Selection.ShapeRange.IncrementTop 29.9
Selection.ShapeRange.IncrementRotation 19.14
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft -6.75
Selection.ShapeRange.IncrementTop 19.05
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.ScaleHeight 0.76, msoFalse,
msoScaleFromTopLeft
Selection.ShapeRange.ScaleWidth 0.67, msoFalse,
msoScaleFromBottomRight
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft -37.35
Selection.ShapeRange.IncrementTop 20.35
Selection.ShapeRange.IncrementRotation 37.2
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.ScaleHeight 0.87, msoFalse,
msoScaleFromTopLeft
Selection.ShapeRange.ScaleWidth 0.68, msoFalse,
msoScaleFromBottomRight
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft -22.4
Selection.ShapeRange.IncrementTop -15.6
Selection.ShapeRange.ScaleHeight 0.79, msoFalse,
msoScaleFromTopLeft
Selection.ShapeRange.ScaleWidth 1.36, msoFalse,
msoScaleFromBottomRight
Selection.ShapeRange.IncrementRotation 13.49
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft 11.55
Selection.ShapeRange.IncrementTop -11.55
Selection.ShapeRange.IncrementRotation 21.12
Selection.ShapeRange.ScaleWidth 0.67, msoFalse,
msoScaleFromBottomRight
Selection.ShapeRange.ScaleHeight 0.61, msoFalse,
msoScaleFromTopLeft
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft -7.5
Selection.ShapeRange.IncrementTop -4.75
Selection.ShapeRange.IncrementRotation 16.34
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.ScaleWidth 0.72, msoFalse,
msoScaleFromBottomRight
Selection.ShapeRange.ScaleHeight 0.79, msoFalse,
msoScaleFromTopLeft
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft -5.45
Selection.ShapeRange.IncrementTop -7.45
Selection.ShapeRange.IncrementRotation 18.06
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.ScaleWidth 0.71, msoFalse,
msoScaleFromBottomRight
Selection.ShapeRange.ScaleHeight 0.8, msoFalse, msoScaleFromTopLeft
ActiveDocument.Shapes("Group 8").Select
End Sub















































Sub test()
'
' test1 Macro
' Macro recorded 12/5/2005 by User
'
ActiveDocument.Shapes.AddShape(msoShapeOval, 36#, 125.65, 42.1,
29.2). _
Select
ActiveDocument.Shapes.AddShape(msoShapeRectangle, 152.85, 241.8,
36.65, _
87.65).Select
ActiveDocument.Shapes.AddShape(msoShapeRoundedRectangle, 286.65,
237.75, _
48.9, 41.4).Select
ActiveDocument.Shapes.AddLine(111.4, 364.1, 158.95, 406.85).Select
End Sub

Sub test2()
'
' test2 Macro
' Macro recorded 12/5/2005 by User
'
ActiveDocument.Shapes("Oval 2").Select
ActiveDocument.Shapes("Rectangle 3").Select
ActiveDocument.Shapes("AutoShape 4").Select
ActiveDocument.Shapes("Line 5").Select
End Sub
 
M

Mad Scientist Jr

Furthermore, would it be difficult to write a utility to convert such a
drawing macro to a Flash FLA or SWF file?
I got it working - but for recording on the fly, I am wondering how you
can control what the default numbering of the shapes is. For instance,
I closed Word then opened it anew and clicked [record macro]. Then I
drew some shapes and stopped recording. See "test1" below. Then I
recorded a 2nd macro ("test2" below) and simply selected the shapes.

My question - what controls how they are named? there is "Oval 2" ,
"Rectangle 3", "Autoshape 4", "Line 5". Assuming no matter what the
shape is, it just gets a consectuive number, why did the numbering
start at 2?

Is there any way to control (from code or another macro) where this
numbering begins? ie

set myNumberBase = 1

?

PS working drawing code follows -

Public Declare Function GetTickCount Lib "kernel32.dll" () As Long

Sub subTimer(iMilliseconds As Integer)
Dim iTickCount As Long
DoEvents
iTickCount = GetTickCount
Do While (GetTickCount - iTickCount) < iMilliseconds
Loop
DoEvents
End Sub

Sub testDraw2()
Dim oShape As Shape
Dim oShapeRange As ShapeRange

Set oShape = ActiveDocument.Shapes.AddShape(msoShapeOval, 86.25,
166.4, 61.85, 65.2)
oShape.Select
oShape.Name = "Oval 1"
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(0, 0, 255)
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 0.75
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.ForeColor.RGB = RGB(0, 0, 0)
Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Rotation = 0#
Selection.ShapeRange.Left = 86.4
Selection.ShapeRange.Top = 166.3
Selection.ShapeRange.RelativeHorizontalPosition = _
wdRelativeHorizontalPositionColumn
Selection.ShapeRange.RelativeVerticalPosition = _
wdRelativeVerticalPositionParagraph
Selection.ShapeRange.Left = InchesToPoints(-0.05)
Selection.ShapeRange.Top = InchesToPoints(1.31)
Selection.ShapeRange.LockAnchor = False
Selection.ShapeRange.LayoutInCell = True
Selection.ShapeRange.WrapFormat.AllowOverlap = True
Selection.ShapeRange.WrapFormat.Side = wdWrapBoth
Selection.ShapeRange.WrapFormat.DistanceTop = InchesToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceBottom = InchesToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceLeft = InchesToPoints(0.13)
Selection.ShapeRange.WrapFormat.DistanceRight =
InchesToPoints(0.13)
Selection.ShapeRange.WrapFormat.Type = 3
Selection.ShapeRange.ZOrder 4





Set oShape = ActiveDocument.Shapes.AddShape(msoShapeRectangle,
103.25, 235#, 29.9, 61.85)
oShape.Name = "Rect 1"
oShape.Select
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(51, 102, 255)
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 0.75
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.ForeColor.RGB = RGB(0, 0, 0)
Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Rotation = 0#
Selection.ShapeRange.Left = 102.95
Selection.ShapeRange.Top = 234.7
Selection.ShapeRange.RelativeHorizontalPosition = _
wdRelativeHorizontalPositionColumn
Selection.ShapeRange.RelativeVerticalPosition = _
wdRelativeVerticalPositionParagraph
Selection.ShapeRange.Left = InchesToPoints(0.18)
Selection.ShapeRange.Top = InchesToPoints(2.26)
Selection.ShapeRange.LockAnchor = False
Selection.ShapeRange.LayoutInCell = True
Selection.ShapeRange.WrapFormat.AllowOverlap = True
Selection.ShapeRange.WrapFormat.Side = wdWrapBoth
Selection.ShapeRange.WrapFormat.DistanceTop = InchesToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceBottom = InchesToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceLeft = InchesToPoints(0.13)
Selection.ShapeRange.WrapFormat.DistanceRight =
InchesToPoints(0.13)
Selection.ShapeRange.WrapFormat.Type = 3
Selection.ShapeRange.ZOrder 4




Set oShape = ActiveDocument.Shapes.AddLine(105.3, 298.85, 105.3,
349.15)
oShape.Name = "Line 1"
oShape.Select
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 4.5
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.ForeColor.RGB = RGB(0, 0, 255)
Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
Selection.ShapeRange.Line.BeginArrowheadLength =
msoArrowheadLengthMedium
Selection.ShapeRange.Line.BeginArrowheadWidth =
msoArrowheadWidthMedium
Selection.ShapeRange.Line.BeginArrowheadStyle = msoArrowheadNone
Selection.ShapeRange.Line.EndArrowheadLength =
msoArrowheadLengthMedium
Selection.ShapeRange.Line.EndArrowheadWidth =
msoArrowheadWidthMedium
Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadNone
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Rotation = 0#
Selection.ShapeRange.Left = 105.1
Selection.ShapeRange.Top = 298.8
Selection.ShapeRange.RelativeHorizontalPosition = _
wdRelativeHorizontalPositionColumn
Selection.ShapeRange.RelativeVerticalPosition = _
wdRelativeVerticalPositionParagraph
Selection.ShapeRange.Left = InchesToPoints(0.21)
Selection.ShapeRange.Top = InchesToPoints(3.15)
Selection.ShapeRange.LockAnchor = False
Selection.ShapeRange.LayoutInCell = True
Selection.ShapeRange.WrapFormat.AllowOverlap = True
Selection.ShapeRange.WrapFormat.Side = wdWrapBoth
Selection.ShapeRange.WrapFormat.DistanceTop = InchesToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceBottom = InchesToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceLeft = InchesToPoints(0.13)
Selection.ShapeRange.WrapFormat.DistanceRight =
InchesToPoints(0.13)
Selection.ShapeRange.WrapFormat.Type = 3
Selection.ShapeRange.ZOrder 4

Set oShape = ActiveDocument.Shapes.AddLine(131.1, 299.55, 131.1,
349.15)
oShape.Name = "Line 2"
oShape.Select
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 6#
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.ForeColor.RGB = RGB(0, 0, 255)
Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
Selection.ShapeRange.Line.BeginArrowheadLength =
msoArrowheadLengthMedium
Selection.ShapeRange.Line.BeginArrowheadWidth =
msoArrowheadWidthMedium
Selection.ShapeRange.Line.BeginArrowheadStyle = msoArrowheadNone
Selection.ShapeRange.Line.EndArrowheadLength =
msoArrowheadLengthMedium
Selection.ShapeRange.Line.EndArrowheadWidth =
msoArrowheadWidthMedium
Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadNone
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Rotation = 0#
Selection.ShapeRange.Left = 131#
Selection.ShapeRange.Top = 299.5
Selection.ShapeRange.RelativeHorizontalPosition = _
wdRelativeHorizontalPositionColumn
Selection.ShapeRange.RelativeVerticalPosition = _
wdRelativeVerticalPositionParagraph
Selection.ShapeRange.Left = InchesToPoints(0.57)
Selection.ShapeRange.Top = InchesToPoints(3.16)
Selection.ShapeRange.LockAnchor = False
Selection.ShapeRange.LayoutInCell = True
Selection.ShapeRange.WrapFormat.AllowOverlap = True
Selection.ShapeRange.WrapFormat.Side = wdWrapBoth
Selection.ShapeRange.WrapFormat.DistanceTop = InchesToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceBottom = InchesToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceLeft = InchesToPoints(0.13)
Selection.ShapeRange.WrapFormat.DistanceRight =
InchesToPoints(0.13)
Selection.ShapeRange.WrapFormat.Type = 3
Selection.ShapeRange.ZOrder 4

Set oShape = ActiveDocument.Shapes.AddLine(78.1, 237.05, 101.2,
254.7)
oShape.Name = "Line 3"
oShape.Select
Selection.ShapeRange.Flip msoFlipHorizontal
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 4.5
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.ForeColor.RGB = RGB(0, 0, 255)
Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
Selection.ShapeRange.Line.BeginArrowheadLength =
msoArrowheadLengthMedium
Selection.ShapeRange.Line.BeginArrowheadWidth =
msoArrowheadWidthMedium
Selection.ShapeRange.Line.BeginArrowheadStyle = msoArrowheadNone
Selection.ShapeRange.Line.EndArrowheadLength =
msoArrowheadLengthMedium
Selection.ShapeRange.Line.EndArrowheadWidth =
msoArrowheadWidthMedium
Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadNone
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Rotation = 0#
Selection.ShapeRange.Left = 77.75
Selection.ShapeRange.Top = 236.85
Selection.ShapeRange.RelativeHorizontalPosition = _
wdRelativeHorizontalPositionColumn
Selection.ShapeRange.RelativeVerticalPosition = _
wdRelativeVerticalPositionParagraph
Selection.ShapeRange.Left = InchesToPoints(-0.17)
Selection.ShapeRange.Top = InchesToPoints(2.29)
Selection.ShapeRange.LockAnchor = False
Selection.ShapeRange.LayoutInCell = True
Selection.ShapeRange.WrapFormat.AllowOverlap = True
Selection.ShapeRange.WrapFormat.Side = wdWrapBoth
Selection.ShapeRange.WrapFormat.DistanceTop = InchesToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceBottom = InchesToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceLeft = InchesToPoints(0.13)
Selection.ShapeRange.WrapFormat.DistanceRight =
InchesToPoints(0.13)
Selection.ShapeRange.WrapFormat.Type = 3
Selection.ShapeRange.ZOrder 4

ActiveDocument.Shapes("Line 2").Select
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 4.5
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.ForeColor.RGB = RGB(0, 0, 255)
Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
Selection.ShapeRange.Line.BeginArrowheadLength =
msoArrowheadLengthMedium
Selection.ShapeRange.Line.BeginArrowheadWidth =
msoArrowheadWidthMedium
Selection.ShapeRange.Line.BeginArrowheadStyle = msoArrowheadNone
Selection.ShapeRange.Line.EndArrowheadLength =
msoArrowheadLengthMedium
Selection.ShapeRange.Line.EndArrowheadWidth =
msoArrowheadWidthMedium
Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadNone
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Rotation = 0#
Selection.ShapeRange.Left = 131#
Selection.ShapeRange.Top = 299.5
Selection.ShapeRange.RelativeHorizontalPosition = _
wdRelativeHorizontalPositionColumn
Selection.ShapeRange.RelativeVerticalPosition = _
wdRelativeVerticalPositionParagraph
Selection.ShapeRange.Left = InchesToPoints(0.57)
Selection.ShapeRange.Top = InchesToPoints(3.16)
Selection.ShapeRange.LockAnchor = False
Selection.ShapeRange.LayoutInCell = True
Selection.ShapeRange.WrapFormat.AllowOverlap = True
Selection.ShapeRange.WrapFormat.Side = wdWrapBoth
Selection.ShapeRange.WrapFormat.DistanceTop = InchesToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceBottom = InchesToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceLeft = InchesToPoints(0.13)
Selection.ShapeRange.WrapFormat.DistanceRight =
InchesToPoints(0.13)
Selection.ShapeRange.WrapFormat.Type = 3
Selection.ShapeRange.ZOrder 4

Set oShape = ActiveDocument.Shapes.AddLine(135.15, 236.4, 156.9,
258.1)
oShape.Name = "Line 4"
oShape.Select
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 4.5
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.ForeColor.RGB = RGB(0, 0, 255)
Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
Selection.ShapeRange.Line.BeginArrowheadLength =
msoArrowheadLengthMedium
Selection.ShapeRange.Line.BeginArrowheadWidth =
msoArrowheadWidthMedium
Selection.ShapeRange.Line.BeginArrowheadStyle = msoArrowheadNone
Selection.ShapeRange.Line.EndArrowheadLength =
msoArrowheadLengthMedium
Selection.ShapeRange.Line.EndArrowheadWidth =
msoArrowheadWidthMedium
Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadNone
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Rotation = 0#
Selection.ShapeRange.Left = 135.35
Selection.ShapeRange.Top = 236.15
Selection.ShapeRange.RelativeHorizontalPosition = _
wdRelativeHorizontalPositionColumn
Selection.ShapeRange.RelativeVerticalPosition = _
wdRelativeVerticalPositionParagraph
Selection.ShapeRange.Left = InchesToPoints(0.63)
Selection.ShapeRange.Top = InchesToPoints(2.28)
Selection.ShapeRange.LockAnchor = False
Selection.ShapeRange.LayoutInCell = True
Selection.ShapeRange.WrapFormat.AllowOverlap = True
Selection.ShapeRange.WrapFormat.Side = wdWrapBoth
Selection.ShapeRange.WrapFormat.DistanceTop = InchesToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceBottom = InchesToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceLeft = InchesToPoints(0.13)
Selection.ShapeRange.WrapFormat.DistanceRight =
InchesToPoints(0.13)
Selection.ShapeRange.WrapFormat.Type = 3
Selection.ShapeRange.ZOrder 4

Set oShape = ActiveDocument.Shapes.Range(Array("Oval 1", "Rect 1",
"Line 1", "Line 2", "Line 3", "Line 4")).Group
oShape.Select
'Selection.ShapeRange.Group.Select
oShape.Name = "Group 8"

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft 33.3
Selection.ShapeRange.IncrementTop -34.65
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft 25.15
Selection.ShapeRange.IncrementTop -20.35
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft 43.45
Selection.ShapeRange.IncrementTop -26.5
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft 30.55
Selection.ShapeRange.IncrementTop -6.1
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft 30.55
Selection.ShapeRange.IncrementTop 4.05
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft 12.2
Selection.ShapeRange.IncrementTop 17.65
Selection.ShapeRange.ScaleWidth 1.16, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 1.13, msoFalse,
msoScaleFromTopLeft
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft 29.9
Selection.ShapeRange.IncrementTop 25.1
Selection.ShapeRange.ScaleWidth 1.41, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 1.16, msoFalse,
msoScaleFromTopLeft
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft 20.35
Selection.ShapeRange.IncrementTop 36#
Selection.ShapeRange.ScaleWidth 1.08, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 1.1, msoFalse, msoScaleFromTopLeft
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft 4.75
Selection.ShapeRange.IncrementTop 27.85
Selection.ShapeRange.IncrementRotation 5.24
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft -19.05
Selection.ShapeRange.IncrementTop 26.5
Selection.ShapeRange.IncrementRotation 9.28
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft -48.2
Selection.ShapeRange.IncrementTop 8.8
Selection.ShapeRange.IncrementRotation 8.64
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft -31.25
Selection.ShapeRange.IncrementTop -9.55
Selection.ShapeRange.IncrementRotation 7.08
Selection.ShapeRange.ScaleWidth 0.84, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.91, msoFalse,
msoScaleFromTopLeft
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft -36#
Selection.ShapeRange.IncrementTop -42.8
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementRotation 17.49
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.ScaleHeight 0.89, msoFalse,
msoScaleFromTopLeft
Selection.ShapeRange.ScaleWidth 0.66, msoFalse, msoScaleFromTopLeft
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft 23.1
Selection.ShapeRange.IncrementTop -38#
Selection.ShapeRange.IncrementRotation 18.79
Selection.ShapeRange.ScaleHeight 0.83, msoFalse,
msoScaleFromTopLeft
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft 10.2
Selection.ShapeRange.IncrementTop 19#
Selection.ShapeRange.IncrementRotation 9.53
Selection.ShapeRange.ScaleHeight 0.77, msoFalse,
msoScaleFromTopLeft
Selection.ShapeRange.ScaleWidth 0.68, msoFalse, msoScaleFromTopLeft
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft 17#
Selection.ShapeRange.IncrementTop 29.9
Selection.ShapeRange.IncrementRotation 19.14
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft -6.75
Selection.ShapeRange.IncrementTop 19.05
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.ScaleHeight 0.76, msoFalse,
msoScaleFromTopLeft
Selection.ShapeRange.ScaleWidth 0.67, msoFalse,
msoScaleFromBottomRight
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft -37.35
Selection.ShapeRange.IncrementTop 20.35
Selection.ShapeRange.IncrementRotation 37.2
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.ScaleHeight 0.87, msoFalse,
msoScaleFromTopLeft
Selection.ShapeRange.ScaleWidth 0.68, msoFalse,
msoScaleFromBottomRight
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft -22.4
Selection.ShapeRange.IncrementTop -15.6
Selection.ShapeRange.ScaleHeight 0.79, msoFalse,
msoScaleFromTopLeft
Selection.ShapeRange.ScaleWidth 1.36, msoFalse,
msoScaleFromBottomRight
Selection.ShapeRange.IncrementRotation 13.49
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft 11.55
Selection.ShapeRange.IncrementTop -11.55
Selection.ShapeRange.IncrementRotation 21.12
Selection.ShapeRange.ScaleWidth 0.67, msoFalse,
msoScaleFromBottomRight
Selection.ShapeRange.ScaleHeight 0.61, msoFalse,
msoScaleFromTopLeft
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft -7.5
Selection.ShapeRange.IncrementTop -4.75
Selection.ShapeRange.IncrementRotation 16.34
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.ScaleWidth 0.72, msoFalse,
msoScaleFromBottomRight
Selection.ShapeRange.ScaleHeight 0.79, msoFalse,
msoScaleFromTopLeft
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft -5.45
Selection.ShapeRange.IncrementTop -7.45
Selection.ShapeRange.IncrementRotation 18.06
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.ScaleWidth 0.71, msoFalse,
msoScaleFromBottomRight
Selection.ShapeRange.ScaleHeight 0.8, msoFalse, msoScaleFromTopLeft
ActiveDocument.Shapes("Group 8").Select
End Sub















































Sub test()
'
' test1 Macro
' Macro recorded 12/5/2005 by User
'
ActiveDocument.Shapes.AddShape(msoShapeOval, 36#, 125.65, 42.1,
29.2). _
Select
ActiveDocument.Shapes.AddShape(msoShapeRectangle, 152.85, 241.8,
36.65, _
87.65).Select
ActiveDocument.Shapes.AddShape(msoShapeRoundedRectangle, 286.65,
237.75, _
48.9, 41.4).Select
ActiveDocument.Shapes.AddLine(111.4, 364.1, 158.95, 406.85).Select
End Sub

Sub test2()
'
' test2 Macro
' Macro recorded 12/5/2005 by User
'
ActiveDocument.Shapes("Oval 2").Select
ActiveDocument.Shapes("Rectangle 3").Select
ActiveDocument.Shapes("AutoShape 4").Select
ActiveDocument.Shapes("Line 5").Select
End Sub









Tony said:
I haven't read your code but to name shapes you can do something along these
lines ..

With ActiveDocument.Shapes.AddShape(msoShapeOval, 86.25, 166.4, 61.85,65.2)
.Name = "myOval"
End With

or set a reference, after which you can use the reference any way you like
...

Set myOval = ActiveDocument.Shapes.AddShape(msoShapeOval, 86.25, 166.4,
61.85,65.2)
Click to expand...
Click to expand...
 
T

Tony Jollans

'fraid I can't answer either question.

I don't know what controls Word's auto naming process and I don't think
there's anything exposed to enable any sort of querying, let alone setting,
of it.

As for Flash - I haven't got a clue, sorry.

--
Enjoy,
Tony


Mad Scientist Jr said:
Furthermore, would it be difficult to write a utility to convert such a
drawing macro to a Flash FLA or SWF file?
I got it working - but for recording on the fly, I am wondering how you
can control what the default numbering of the shapes is. For instance,
I closed Word then opened it anew and clicked [record macro]. Then I
drew some shapes and stopped recording. See "test1" below. Then I
recorded a 2nd macro ("test2" below) and simply selected the shapes.

My question - what controls how they are named? there is "Oval 2" ,
"Rectangle 3", "Autoshape 4", "Line 5". Assuming no matter what the
shape is, it just gets a consectuive number, why did the numbering
start at 2?

Is there any way to control (from code or another macro) where this
numbering begins? ie

set myNumberBase = 1

?

PS working drawing code follows -

Public Declare Function GetTickCount Lib "kernel32.dll" () As Long

Sub subTimer(iMilliseconds As Integer)
Dim iTickCount As Long
DoEvents
iTickCount = GetTickCount
Do While (GetTickCount - iTickCount) < iMilliseconds
Loop
DoEvents
End Sub

Sub testDraw2()
Dim oShape As Shape
Dim oShapeRange As ShapeRange

Set oShape = ActiveDocument.Shapes.AddShape(msoShapeOval, 86.25,
166.4, 61.85, 65.2)
oShape.Select
oShape.Name = "Oval 1"
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(0, 0, 255)
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 0.75
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.ForeColor.RGB = RGB(0, 0, 0)
Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Rotation = 0#
Selection.ShapeRange.Left = 86.4
Selection.ShapeRange.Top = 166.3
Selection.ShapeRange.RelativeHorizontalPosition = _
wdRelativeHorizontalPositionColumn
Selection.ShapeRange.RelativeVerticalPosition = _
wdRelativeVerticalPositionParagraph
Selection.ShapeRange.Left = InchesToPoints(-0.05)
Selection.ShapeRange.Top = InchesToPoints(1.31)
Selection.ShapeRange.LockAnchor = False
Selection.ShapeRange.LayoutInCell = True
Selection.ShapeRange.WrapFormat.AllowOverlap = True
Selection.ShapeRange.WrapFormat.Side = wdWrapBoth
Selection.ShapeRange.WrapFormat.DistanceTop = InchesToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceBottom = InchesToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceLeft = InchesToPoints(0.13)
Selection.ShapeRange.WrapFormat.DistanceRight =
InchesToPoints(0.13)
Selection.ShapeRange.WrapFormat.Type = 3
Selection.ShapeRange.ZOrder 4





Set oShape = ActiveDocument.Shapes.AddShape(msoShapeRectangle,
103.25, 235#, 29.9, 61.85)
oShape.Name = "Rect 1"
oShape.Select
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(51, 102, 255)
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 0.75
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.ForeColor.RGB = RGB(0, 0, 0)
Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Rotation = 0#
Selection.ShapeRange.Left = 102.95
Selection.ShapeRange.Top = 234.7
Selection.ShapeRange.RelativeHorizontalPosition = _
wdRelativeHorizontalPositionColumn
Selection.ShapeRange.RelativeVerticalPosition = _
wdRelativeVerticalPositionParagraph
Selection.ShapeRange.Left = InchesToPoints(0.18)
Selection.ShapeRange.Top = InchesToPoints(2.26)
Selection.ShapeRange.LockAnchor = False
Selection.ShapeRange.LayoutInCell = True
Selection.ShapeRange.WrapFormat.AllowOverlap = True
Selection.ShapeRange.WrapFormat.Side = wdWrapBoth
Selection.ShapeRange.WrapFormat.DistanceTop = InchesToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceBottom = InchesToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceLeft = InchesToPoints(0.13)
Selection.ShapeRange.WrapFormat.DistanceRight =
InchesToPoints(0.13)
Selection.ShapeRange.WrapFormat.Type = 3
Selection.ShapeRange.ZOrder 4




Set oShape = ActiveDocument.Shapes.AddLine(105.3, 298.85, 105.3,
349.15)
oShape.Name = "Line 1"
oShape.Select
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 4.5
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.ForeColor.RGB = RGB(0, 0, 255)
Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
Selection.ShapeRange.Line.BeginArrowheadLength =
msoArrowheadLengthMedium
Selection.ShapeRange.Line.BeginArrowheadWidth =
msoArrowheadWidthMedium
Selection.ShapeRange.Line.BeginArrowheadStyle = msoArrowheadNone
Selection.ShapeRange.Line.EndArrowheadLength =
msoArrowheadLengthMedium
Selection.ShapeRange.Line.EndArrowheadWidth =
msoArrowheadWidthMedium
Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadNone
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Rotation = 0#
Selection.ShapeRange.Left = 105.1
Selection.ShapeRange.Top = 298.8
Selection.ShapeRange.RelativeHorizontalPosition = _
wdRelativeHorizontalPositionColumn
Selection.ShapeRange.RelativeVerticalPosition = _
wdRelativeVerticalPositionParagraph
Selection.ShapeRange.Left = InchesToPoints(0.21)
Selection.ShapeRange.Top = InchesToPoints(3.15)
Selection.ShapeRange.LockAnchor = False
Selection.ShapeRange.LayoutInCell = True
Selection.ShapeRange.WrapFormat.AllowOverlap = True
Selection.ShapeRange.WrapFormat.Side = wdWrapBoth
Selection.ShapeRange.WrapFormat.DistanceTop = InchesToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceBottom = InchesToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceLeft = InchesToPoints(0.13)
Selection.ShapeRange.WrapFormat.DistanceRight =
InchesToPoints(0.13)
Selection.ShapeRange.WrapFormat.Type = 3
Selection.ShapeRange.ZOrder 4

Set oShape = ActiveDocument.Shapes.AddLine(131.1, 299.55, 131.1,
349.15)
oShape.Name = "Line 2"
oShape.Select
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 6#
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.ForeColor.RGB = RGB(0, 0, 255)
Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
Selection.ShapeRange.Line.BeginArrowheadLength =
msoArrowheadLengthMedium
Selection.ShapeRange.Line.BeginArrowheadWidth =
msoArrowheadWidthMedium
Selection.ShapeRange.Line.BeginArrowheadStyle = msoArrowheadNone
Selection.ShapeRange.Line.EndArrowheadLength =
msoArrowheadLengthMedium
Selection.ShapeRange.Line.EndArrowheadWidth =
msoArrowheadWidthMedium
Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadNone
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Rotation = 0#
Selection.ShapeRange.Left = 131#
Selection.ShapeRange.Top = 299.5
Selection.ShapeRange.RelativeHorizontalPosition = _
wdRelativeHorizontalPositionColumn
Selection.ShapeRange.RelativeVerticalPosition = _
wdRelativeVerticalPositionParagraph
Selection.ShapeRange.Left = InchesToPoints(0.57)
Selection.ShapeRange.Top = InchesToPoints(3.16)
Selection.ShapeRange.LockAnchor = False
Selection.ShapeRange.LayoutInCell = True
Selection.ShapeRange.WrapFormat.AllowOverlap = True
Selection.ShapeRange.WrapFormat.Side = wdWrapBoth
Selection.ShapeRange.WrapFormat.DistanceTop = InchesToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceBottom = InchesToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceLeft = InchesToPoints(0.13)
Selection.ShapeRange.WrapFormat.DistanceRight =
InchesToPoints(0.13)
Selection.ShapeRange.WrapFormat.Type = 3
Selection.ShapeRange.ZOrder 4

Set oShape = ActiveDocument.Shapes.AddLine(78.1, 237.05, 101.2,
254.7)
oShape.Name = "Line 3"
oShape.Select
Selection.ShapeRange.Flip msoFlipHorizontal
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 4.5
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.ForeColor.RGB = RGB(0, 0, 255)
Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
Selection.ShapeRange.Line.BeginArrowheadLength =
msoArrowheadLengthMedium
Selection.ShapeRange.Line.BeginArrowheadWidth =
msoArrowheadWidthMedium
Selection.ShapeRange.Line.BeginArrowheadStyle = msoArrowheadNone
Selection.ShapeRange.Line.EndArrowheadLength =
msoArrowheadLengthMedium
Selection.ShapeRange.Line.EndArrowheadWidth =
msoArrowheadWidthMedium
Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadNone
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Rotation = 0#
Selection.ShapeRange.Left = 77.75
Selection.ShapeRange.Top = 236.85
Selection.ShapeRange.RelativeHorizontalPosition = _
wdRelativeHorizontalPositionColumn
Selection.ShapeRange.RelativeVerticalPosition = _
wdRelativeVerticalPositionParagraph
Selection.ShapeRange.Left = InchesToPoints(-0.17)
Selection.ShapeRange.Top = InchesToPoints(2.29)
Selection.ShapeRange.LockAnchor = False
Selection.ShapeRange.LayoutInCell = True
Selection.ShapeRange.WrapFormat.AllowOverlap = True
Selection.ShapeRange.WrapFormat.Side = wdWrapBoth
Selection.ShapeRange.WrapFormat.DistanceTop = InchesToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceBottom = InchesToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceLeft = InchesToPoints(0.13)
Selection.ShapeRange.WrapFormat.DistanceRight =
InchesToPoints(0.13)
Selection.ShapeRange.WrapFormat.Type = 3
Selection.ShapeRange.ZOrder 4

ActiveDocument.Shapes("Line 2").Select
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 4.5
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.ForeColor.RGB = RGB(0, 0, 255)
Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
Selection.ShapeRange.Line.BeginArrowheadLength =
msoArrowheadLengthMedium
Selection.ShapeRange.Line.BeginArrowheadWidth =
msoArrowheadWidthMedium
Selection.ShapeRange.Line.BeginArrowheadStyle = msoArrowheadNone
Selection.ShapeRange.Line.EndArrowheadLength =
msoArrowheadLengthMedium
Selection.ShapeRange.Line.EndArrowheadWidth =
msoArrowheadWidthMedium
Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadNone
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Rotation = 0#
Selection.ShapeRange.Left = 131#
Selection.ShapeRange.Top = 299.5
Selection.ShapeRange.RelativeHorizontalPosition = _
wdRelativeHorizontalPositionColumn
Selection.ShapeRange.RelativeVerticalPosition = _
wdRelativeVerticalPositionParagraph
Selection.ShapeRange.Left = InchesToPoints(0.57)
Selection.ShapeRange.Top = InchesToPoints(3.16)
Selection.ShapeRange.LockAnchor = False
Selection.ShapeRange.LayoutInCell = True
Selection.ShapeRange.WrapFormat.AllowOverlap = True
Selection.ShapeRange.WrapFormat.Side = wdWrapBoth
Selection.ShapeRange.WrapFormat.DistanceTop = InchesToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceBottom = InchesToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceLeft = InchesToPoints(0.13)
Selection.ShapeRange.WrapFormat.DistanceRight =
InchesToPoints(0.13)
Selection.ShapeRange.WrapFormat.Type = 3
Selection.ShapeRange.ZOrder 4

Set oShape = ActiveDocument.Shapes.AddLine(135.15, 236.4, 156.9,
258.1)
oShape.Name = "Line 4"
oShape.Select
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 4.5
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.ForeColor.RGB = RGB(0, 0, 255)
Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
Selection.ShapeRange.Line.BeginArrowheadLength =
msoArrowheadLengthMedium
Selection.ShapeRange.Line.BeginArrowheadWidth =
msoArrowheadWidthMedium
Selection.ShapeRange.Line.BeginArrowheadStyle = msoArrowheadNone
Selection.ShapeRange.Line.EndArrowheadLength =
msoArrowheadLengthMedium
Selection.ShapeRange.Line.EndArrowheadWidth =
msoArrowheadWidthMedium
Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadNone
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Rotation = 0#
Selection.ShapeRange.Left = 135.35
Selection.ShapeRange.Top = 236.15
Selection.ShapeRange.RelativeHorizontalPosition = _
wdRelativeHorizontalPositionColumn
Selection.ShapeRange.RelativeVerticalPosition = _
wdRelativeVerticalPositionParagraph
Selection.ShapeRange.Left = InchesToPoints(0.63)
Selection.ShapeRange.Top = InchesToPoints(2.28)
Selection.ShapeRange.LockAnchor = False
Selection.ShapeRange.LayoutInCell = True
Selection.ShapeRange.WrapFormat.AllowOverlap = True
Selection.ShapeRange.WrapFormat.Side = wdWrapBoth
Selection.ShapeRange.WrapFormat.DistanceTop = InchesToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceBottom = InchesToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceLeft = InchesToPoints(0.13)
Selection.ShapeRange.WrapFormat.DistanceRight =
InchesToPoints(0.13)
Selection.ShapeRange.WrapFormat.Type = 3
Selection.ShapeRange.ZOrder 4

Set oShape = ActiveDocument.Shapes.Range(Array("Oval 1", "Rect 1",
"Line 1", "Line 2", "Line 3", "Line 4")).Group
oShape.Select
'Selection.ShapeRange.Group.Select
oShape.Name = "Group 8"

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft 33.3
Selection.ShapeRange.IncrementTop -34.65
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft 25.15
Selection.ShapeRange.IncrementTop -20.35
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft 43.45
Selection.ShapeRange.IncrementTop -26.5
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft 30.55
Selection.ShapeRange.IncrementTop -6.1
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft 30.55
Selection.ShapeRange.IncrementTop 4.05
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft 12.2
Selection.ShapeRange.IncrementTop 17.65
Selection.ShapeRange.ScaleWidth 1.16, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 1.13, msoFalse,
msoScaleFromTopLeft
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft 29.9
Selection.ShapeRange.IncrementTop 25.1
Selection.ShapeRange.ScaleWidth 1.41, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 1.16, msoFalse,
msoScaleFromTopLeft
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft 20.35
Selection.ShapeRange.IncrementTop 36#
Selection.ShapeRange.ScaleWidth 1.08, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 1.1, msoFalse, msoScaleFromTopLeft
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft 4.75
Selection.ShapeRange.IncrementTop 27.85
Selection.ShapeRange.IncrementRotation 5.24
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft -19.05
Selection.ShapeRange.IncrementTop 26.5
Selection.ShapeRange.IncrementRotation 9.28
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft -48.2
Selection.ShapeRange.IncrementTop 8.8
Selection.ShapeRange.IncrementRotation 8.64
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft -31.25
Selection.ShapeRange.IncrementTop -9.55
Selection.ShapeRange.IncrementRotation 7.08
Selection.ShapeRange.ScaleWidth 0.84, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.91, msoFalse,
msoScaleFromTopLeft
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft -36#
Selection.ShapeRange.IncrementTop -42.8
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementRotation 17.49
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.ScaleHeight 0.89, msoFalse,
msoScaleFromTopLeft
Selection.ShapeRange.ScaleWidth 0.66, msoFalse, msoScaleFromTopLeft
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft 23.1
Selection.ShapeRange.IncrementTop -38#
Selection.ShapeRange.IncrementRotation 18.79
Selection.ShapeRange.ScaleHeight 0.83, msoFalse,
msoScaleFromTopLeft
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft 10.2
Selection.ShapeRange.IncrementTop 19#
Selection.ShapeRange.IncrementRotation 9.53
Selection.ShapeRange.ScaleHeight 0.77, msoFalse,
msoScaleFromTopLeft
Selection.ShapeRange.ScaleWidth 0.68, msoFalse, msoScaleFromTopLeft
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft 17#
Selection.ShapeRange.IncrementTop 29.9
Selection.ShapeRange.IncrementRotation 19.14
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft -6.75
Selection.ShapeRange.IncrementTop 19.05
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.ScaleHeight 0.76, msoFalse,
msoScaleFromTopLeft
Selection.ShapeRange.ScaleWidth 0.67, msoFalse,
msoScaleFromBottomRight
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft -37.35
Selection.ShapeRange.IncrementTop 20.35
Selection.ShapeRange.IncrementRotation 37.2
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.ScaleHeight 0.87, msoFalse,
msoScaleFromTopLeft
Selection.ShapeRange.ScaleWidth 0.68, msoFalse,
msoScaleFromBottomRight
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft -22.4
Selection.ShapeRange.IncrementTop -15.6
Selection.ShapeRange.ScaleHeight 0.79, msoFalse,
msoScaleFromTopLeft
Selection.ShapeRange.ScaleWidth 1.36, msoFalse,
msoScaleFromBottomRight
Selection.ShapeRange.IncrementRotation 13.49
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft 11.55
Selection.ShapeRange.IncrementTop -11.55
Selection.ShapeRange.IncrementRotation 21.12
Selection.ShapeRange.ScaleWidth 0.67, msoFalse,
msoScaleFromBottomRight
Selection.ShapeRange.ScaleHeight 0.61, msoFalse,
msoScaleFromTopLeft
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft -7.5
Selection.ShapeRange.IncrementTop -4.75
Selection.ShapeRange.IncrementRotation 16.34
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.ScaleWidth 0.72, msoFalse,
msoScaleFromBottomRight
Selection.ShapeRange.ScaleHeight 0.79, msoFalse,
msoScaleFromTopLeft
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft -5.45
Selection.ShapeRange.IncrementTop -7.45
Selection.ShapeRange.IncrementRotation 18.06
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.ScaleWidth 0.71, msoFalse,
msoScaleFromBottomRight
Selection.ShapeRange.ScaleHeight 0.8, msoFalse, msoScaleFromTopLeft
ActiveDocument.Shapes("Group 8").Select
End Sub















































Sub test()
'
' test1 Macro
' Macro recorded 12/5/2005 by User
'
ActiveDocument.Shapes.AddShape(msoShapeOval, 36#, 125.65, 42.1,
29.2). _
Select
ActiveDocument.Shapes.AddShape(msoShapeRectangle, 152.85, 241.8,
36.65, _
87.65).Select
ActiveDocument.Shapes.AddShape(msoShapeRoundedRectangle, 286.65,
237.75, _
48.9, 41.4).Select
ActiveDocument.Shapes.AddLine(111.4, 364.1, 158.95, 406.85).Select
End Sub

Sub test2()
'
' test2 Macro
' Macro recorded 12/5/2005 by User
'
ActiveDocument.Shapes("Oval 2").Select
ActiveDocument.Shapes("Rectangle 3").Select
ActiveDocument.Shapes("AutoShape 4").Select
ActiveDocument.Shapes("Line 5").Select
End Sub









Tony said:
I haven't read your code but to name shapes you can do something along these
lines ..

With ActiveDocument.Shapes.AddShape(msoShapeOval, 86.25, 166.4, 61.85,65.2)
.Name = "myOval"
End With

or set a reference, after which you can use the reference any way you like
...

Set myOval = ActiveDocument.Shapes.AddShape(msoShapeOval, 86.25, 166.4,
61.85,65.2)

--
Enjoy,
Tony


see the macros below - paste these into a Word document

and run macro testDraw1 - it should work

a green blob dances around the screen

But try running the macro testDraw2

and you will see problems with lines like

ActiveDocument.Shapes("Line 5").Select

it seems when the line shape was created,

Word auto-enumerated some internal counter of that particular shape,
and auto-named the shape using that counter (ie "Line 5")

and if you try to play the macro later

that counter might be reset, and thus the shape name would be
different,

ie, what was "Line 5" when the macro was created, might be
"Line 2" for someone else playing back the macro.
and the macro won't work for playback

The answer would be to edit the macro to explicitly name the shape in a
line like

ActiveDocument.Shapes.AddShape(msoShapeOval, 86.25, 166.4, 61.85,
65.2). _
Select

This also is the case with group objects, for instance "myGroup"

ActiveDocument.Shapes.Range(Array("Oval 2", "Rectangle 3", "Line
4", _
"Line 5" _
, "Line 6", "Line 7")).Select
Selection.ShapeRange.Group.Select

so that later you can reference it with

ActiveDocument.Shapes("myGroup").Select

instead of some default name like

ActiveDocument.Shapes("Group 8").Select

Can someone say how to explicitly name shapes and groups, in code such
as below? (Actual samples would be most helpful)

Thanks...




Public Declare Function GetTickCount Lib "kernel32.dll" () As Long

Sub subTimer(iMilliseconds As Integer)
Dim iTickCount As Long
DoEvents
iTickCount = GetTickCount
Do While (GetTickCount - iTickCount) < iMilliseconds
Loop
DoEvents
End Sub

Sub testDraw1()

ActiveDocument.Shapes.AddShape(msoShapeOval, 98.5, 205.8, 58.4,
59.1). _
Select
Application.WindowState = wdWindowStateMaximize
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(0, 128, 0)
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 0.75
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.ForeColor.RGB = RGB(0, 0, 0)
Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Rotation = 0#
Selection.ShapeRange.Left = 98.6
Selection.ShapeRange.Top = 205.9
Selection.ShapeRange.RelativeHorizontalPosition = _
wdRelativeHorizontalPositionColumn
Selection.ShapeRange.RelativeVerticalPosition = _
wdRelativeVerticalPositionParagraph

Call subTimer(100)

Selection.ShapeRange.Left = InchesToPoints(0.12)
Selection.ShapeRange.Top = InchesToPoints(1.86)

Call subTimer(100)

Selection.ShapeRange.LockAnchor = False
Selection.ShapeRange.LayoutInCell = True
Selection.ShapeRange.WrapFormat.AllowOverlap = True
Selection.ShapeRange.WrapFormat.Side = wdWrapBoth
Selection.ShapeRange.WrapFormat.DistanceTop = InchesToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceBottom = InchesToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceLeft = InchesToPoints(0.13)
Selection.ShapeRange.WrapFormat.DistanceRight =
InchesToPoints(0.13)
Selection.ShapeRange.WrapFormat.Type = 3
Selection.ShapeRange.ZOrder 4

Call subTimer(100)

Selection.ShapeRange.IncrementLeft 16.3
Selection.ShapeRange.IncrementTop 1.4

Call subTimer(100)

Selection.ShapeRange.IncrementLeft 12.95

Call subTimer(100)

Selection.ShapeRange.IncrementLeft 15.6
Selection.ShapeRange.IncrementTop 2.05

Call subTimer(100)

Selection.ShapeRange.IncrementLeft 14.3

Call subTimer(100)

Selection.ShapeRange.IncrementLeft 33.25
Selection.ShapeRange.IncrementTop 6.8

Call subTimer(100)

Selection.ShapeRange.IncrementLeft 29.2
Selection.ShapeRange.IncrementTop 3.4

Call subTimer(100)

Selection.ShapeRange.IncrementLeft 29.2
Selection.ShapeRange.IncrementTop -1.4

Call subTimer(100)

Selection.ShapeRange.IncrementLeft 45.5
Selection.ShapeRange.IncrementTop -4.05

Call subTimer(100)

Selection.ShapeRange.IncrementLeft 38.05
Selection.ShapeRange.IncrementTop -6.1

Call subTimer(100)

Selection.ShapeRange.IncrementLeft 46.9
Selection.ShapeRange.IncrementTop -16.3

Call subTimer(100)

Selection.ShapeRange.IncrementLeft 31.2
Selection.ShapeRange.IncrementTop -33.3

Call subTimer(100)

Selection.ShapeRange.IncrementLeft 34.65
Selection.ShapeRange.IncrementTop -50.95

Call subTimer(100)

Selection.ShapeRange.IncrementLeft 14.25
Selection.ShapeRange.IncrementTop -32.6

Call subTimer(100)

Selection.ShapeRange.IncrementLeft -53#
Selection.ShapeRange.IncrementTop -13.55

Call subTimer(100)

Selection.ShapeRange.IncrementLeft -70.65
Selection.ShapeRange.IncrementTop -10.2

Call subTimer(100)

Selection.ShapeRange.IncrementLeft -64.55
Selection.ShapeRange.IncrementTop 43.5

Call subTimer(100)

Selection.ShapeRange.IncrementLeft -56.35
Selection.ShapeRange.IncrementTop 51.65

Call subTimer(100)

Selection.ShapeRange.IncrementLeft -68.6
Selection.ShapeRange.IncrementTop 5.4

Call subTimer(100)

Selection.ShapeRange.IncrementLeft -61.85
Selection.ShapeRange.IncrementTop -40.8

Call subTimer(100)

Selection.ShapeRange.IncrementLeft -1.35
Selection.ShapeRange.IncrementTop -41.4

Call subTimer(100)

Selection.ShapeRange.IncrementLeft 53.65
Selection.ShapeRange.IncrementTop -12.9

Call subTimer(100)

Selection.ShapeRange.IncrementLeft 57.05
Selection.ShapeRange.IncrementTop 10.2

Call subTimer(100)

Selection.ShapeRange.IncrementLeft 38.75
Selection.ShapeRange.IncrementTop 42.1

Call subTimer(100)

Selection.ShapeRange.IncrementLeft 14.9
Selection.ShapeRange.IncrementTop 36#

Call subTimer(100)

Selection.ShapeRange.IncrementLeft 2.05
Selection.ShapeRange.IncrementTop 48.95

Call subTimer(100)

Selection.ShapeRange.IncrementLeft -20.35
Selection.ShapeRange.IncrementTop 57.7

Call subTimer(100)

Selection.ShapeRange.ScaleHeight 2.07, msoFalse,
msoScaleFromTopLeft
Selection.ShapeRange.ScaleWidth 1.47, msoFalse,
msoScaleFromBottomRight

Call subTimer(100)

Selection.ShapeRange.IncrementLeft -36.65
Selection.ShapeRange.IncrementTop -2.7

Call subTimer(100)

Selection.ShapeRange.IncrementLeft -42.15
Selection.ShapeRange.IncrementTop -10.85

Call subTimer(100)

Selection.ShapeRange.IncrementLeft -11.55
Selection.ShapeRange.IncrementTop -37.35

Call subTimer(100)

Selection.ShapeRange.ScaleWidth 1.21, msoFalse,
msoScaleFromBottomRight
Selection.ShapeRange.ScaleHeight 1.33, msoFalse,
msoScaleFromBottomRight


Call subTimer(100)
Selection.ShapeRange.IncrementLeft 36#
Selection.ShapeRange.IncrementTop -35.3

Call subTimer(100)
Selection.ShapeRange.IncrementLeft 34.65
Selection.ShapeRange.IncrementTop -17.7

Call subTimer(100)

Selection.ShapeRange.ScaleWidth 1.61, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 1.06, msoFalse,
msoScaleFromBottomRight

Call subTimer(100)
Selection.ShapeRange.IncrementLeft 86.25
Selection.ShapeRange.IncrementTop 4.1

Call subTimer(100)
Selection.ShapeRange.IncrementLeft 46.2
Selection.ShapeRange.IncrementTop -28.55

Call subTimer(100)
Selection.ShapeRange.IncrementLeft 46.85
Selection.ShapeRange.IncrementTop -8.8

Call subTimer(100)
Selection.ShapeRange.IncrementLeft 38.7
Selection.ShapeRange.IncrementTop 45.5

Call subTimer(100)
Selection.ShapeRange.ScaleWidth 1.26, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 1.5, msoFalse, msoScaleFromTopLeft

Call subTimer(100)
Selection.ShapeRange.IncrementLeft -30.6
Selection.ShapeRange.IncrementTop 57.7

Call subTimer(100)
Selection.ShapeRange.ScaleWidth 1.23, msoFalse,
msoScaleFromBottomRight
Selection.ShapeRange.ScaleHeight 1.07, msoFalse,
msoScaleFromTopLeft

Call subTimer(100)
Selection.ShapeRange.IncrementLeft -71.35
Selection.ShapeRange.IncrementTop 89#

Call subTimer(100)
Selection.ShapeRange.ScaleWidth 1.49, msoFalse,
msoScaleFromBottomRight
Selection.ShapeRange.ScaleHeight 1.13, msoFalse,
msoScaleFromBottomRight

Call subTimer(100)
Selection.ShapeRange.IncrementLeft -31.9
Selection.ShapeRange.IncrementTop -111.4

Call subTimer(100)
Selection.ShapeRange.ScaleWidth 1.07, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 1.15, msoFalse,
msoScaleFromBottomRight

Call subTimer(100)
Selection.ShapeRange.IncrementLeft 52.95
Selection.ShapeRange.IncrementTop -44.85

Call subTimer(100)
Selection.ShapeRange.ScaleHeight 1.13, msoFalse,
msoScaleFromTopLeft

Call subTimer(100)
Selection.ShapeRange.IncrementLeft 57.7
Selection.ShapeRange.IncrementTop 104.6

Call subTimer(100)
Selection.ShapeRange.ScaleWidth 1.34, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 1.14, msoFalse,
msoScaleFromBottomRight

End Sub

Sub testDraw2()
ActiveDocument.Shapes.AddShape(msoShapeOval, 86.25, 166.4, 61.85,
65.2). _
Select
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(0, 0, 255)
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 0.75
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.ForeColor.RGB = RGB(0, 0, 0)
Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Rotation = 0#
Selection.ShapeRange.Left = 86.4
Selection.ShapeRange.Top = 166.3
Selection.ShapeRange.RelativeHorizontalPosition = _
wdRelativeHorizontalPositionColumn
Selection.ShapeRange.RelativeVerticalPosition = _
wdRelativeVerticalPositionParagraph
Selection.ShapeRange.Left = InchesToPoints(-0.05)
Selection.ShapeRange.Top = InchesToPoints(1.31)
Selection.ShapeRange.LockAnchor = False
Selection.ShapeRange.LayoutInCell = True
Selection.ShapeRange.WrapFormat.AllowOverlap = True
Selection.ShapeRange.WrapFormat.Side = wdWrapBoth
Selection.ShapeRange.WrapFormat.DistanceTop = InchesToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceBottom = InchesToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceLeft = InchesToPoints(0.13)
Selection.ShapeRange.WrapFormat.DistanceRight =
InchesToPoints(0.13)
Selection.ShapeRange.WrapFormat.Type = 3
Selection.ShapeRange.ZOrder 4
ActiveDocument.Shapes.AddShape(msoShapeRectangle, 103.25, 235#,
29.9, _
61.85).Select
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(51, 102, 255)
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 0.75
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.ForeColor.RGB = RGB(0, 0, 0)
Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Rotation = 0#
Selection.ShapeRange.Left = 102.95
Selection.ShapeRange.Top = 234.7
Selection.ShapeRange.RelativeHorizontalPosition = _
wdRelativeHorizontalPositionColumn
Selection.ShapeRange.RelativeVerticalPosition = _
wdRelativeVerticalPositionParagraph
Selection.ShapeRange.Left = InchesToPoints(0.18)
Selection.ShapeRange.Top = InchesToPoints(2.26)
Selection.ShapeRange.LockAnchor = False
Selection.ShapeRange.LayoutInCell = True
Selection.ShapeRange.WrapFormat.AllowOverlap = True
Selection.ShapeRange.WrapFormat.Side = wdWrapBoth
Selection.ShapeRange.WrapFormat.DistanceTop = InchesToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceBottom = InchesToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceLeft = InchesToPoints(0.13)
Selection.ShapeRange.WrapFormat.DistanceRight =
InchesToPoints(0.13)
Selection.ShapeRange.WrapFormat.Type = 3
Selection.ShapeRange.ZOrder 4
ActiveDocument.Shapes.AddLine(105.3, 298.85, 105.3, 349.15).Select
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 4.5
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.ForeColor.RGB = RGB(0, 0, 255)
Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
Selection.ShapeRange.Line.BeginArrowheadLength =
msoArrowheadLengthMedium
Selection.ShapeRange.Line.BeginArrowheadWidth =
msoArrowheadWidthMedium
Selection.ShapeRange.Line.BeginArrowheadStyle = msoArrowheadNone
Selection.ShapeRange.Line.EndArrowheadLength =
msoArrowheadLengthMedium
Selection.ShapeRange.Line.EndArrowheadWidth =
msoArrowheadWidthMedium
Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadNone
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Rotation = 0#
Selection.ShapeRange.Left = 105.1
Selection.ShapeRange.Top = 298.8
Selection.ShapeRange.RelativeHorizontalPosition = _
wdRelativeHorizontalPositionColumn
Selection.ShapeRange.RelativeVerticalPosition = _
wdRelativeVerticalPositionParagraph
Selection.ShapeRange.Left = InchesToPoints(0.21)
Selection.ShapeRange.Top = InchesToPoints(3.15)
Selection.ShapeRange.LockAnchor = False
Selection.ShapeRange.LayoutInCell = True
Selection.ShapeRange.WrapFormat.AllowOverlap = True
Selection.ShapeRange.WrapFormat.Side = wdWrapBoth
Selection.ShapeRange.WrapFormat.DistanceTop = InchesToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceBottom = InchesToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceLeft = InchesToPoints(0.13)
Selection.ShapeRange.WrapFormat.DistanceRight =
InchesToPoints(0.13)
Selection.ShapeRange.WrapFormat.Type = 3
Selection.ShapeRange.ZOrder 4
ActiveDocument.Shapes.AddLine(131.1, 299.55, 131.1, 349.15).Select
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 6#
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.ForeColor.RGB = RGB(0, 0, 255)
Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
Selection.ShapeRange.Line.BeginArrowheadLength =
msoArrowheadLengthMedium
Selection.ShapeRange.Line.BeginArrowheadWidth =
msoArrowheadWidthMedium
Selection.ShapeRange.Line.BeginArrowheadStyle = msoArrowheadNone
Selection.ShapeRange.Line.EndArrowheadLength =
msoArrowheadLengthMedium
Selection.ShapeRange.Line.EndArrowheadWidth =
msoArrowheadWidthMedium
Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadNone
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Rotation = 0#
Selection.ShapeRange.Left = 131#
Selection.ShapeRange.Top = 299.5
Selection.ShapeRange.RelativeHorizontalPosition = _
wdRelativeHorizontalPositionColumn
Selection.ShapeRange.RelativeVerticalPosition = _
wdRelativeVerticalPositionParagraph
Selection.ShapeRange.Left = InchesToPoints(0.57)
Selection.ShapeRange.Top = InchesToPoints(3.16)
Selection.ShapeRange.LockAnchor = False
Selection.ShapeRange.LayoutInCell = True
Selection.ShapeRange.WrapFormat.AllowOverlap = True
Selection.ShapeRange.WrapFormat.Side = wdWrapBoth
Selection.ShapeRange.WrapFormat.DistanceTop = InchesToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceBottom = InchesToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceLeft = InchesToPoints(0.13)
Selection.ShapeRange.WrapFormat.DistanceRight =
InchesToPoints(0.13)
Selection.ShapeRange.WrapFormat.Type = 3
Selection.ShapeRange.ZOrder 4
ActiveDocument.Shapes.AddLine(78.1, 237.05, 101.2, 254.7).Select
Selection.ShapeRange.Flip msoFlipHorizontal
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 4.5
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.ForeColor.RGB = RGB(0, 0, 255)
Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
Selection.ShapeRange.Line.BeginArrowheadLength =
msoArrowheadLengthMedium
Selection.ShapeRange.Line.BeginArrowheadWidth =
msoArrowheadWidthMedium
Selection.ShapeRange.Line.BeginArrowheadStyle = msoArrowheadNone
Selection.ShapeRange.Line.EndArrowheadLength =
msoArrowheadLengthMedium
Selection.ShapeRange.Line.EndArrowheadWidth =
msoArrowheadWidthMedium
Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadNone
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Rotation = 0#
Selection.ShapeRange.Left = 77.75
Selection.ShapeRange.Top = 236.85
Selection.ShapeRange.RelativeHorizontalPosition = _
wdRelativeHorizontalPositionColumn
Selection.ShapeRange.RelativeVerticalPosition = _
wdRelativeVerticalPositionParagraph
Selection.ShapeRange.Left = InchesToPoints(-0.17)
Selection.ShapeRange.Top = InchesToPoints(2.29)
Selection.ShapeRange.LockAnchor = False
Selection.ShapeRange.LayoutInCell = True
Selection.ShapeRange.WrapFormat.AllowOverlap = True
Selection.ShapeRange.WrapFormat.Side = wdWrapBoth
Selection.ShapeRange.WrapFormat.DistanceTop = InchesToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceBottom = InchesToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceLeft = InchesToPoints(0.13)
Selection.ShapeRange.WrapFormat.DistanceRight =
InchesToPoints(0.13)
Selection.ShapeRange.WrapFormat.Type = 3
Selection.ShapeRange.ZOrder 4
ActiveDocument.Shapes("Line 5").Select
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 4.5
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.ForeColor.RGB = RGB(0, 0, 255)
Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
Selection.ShapeRange.Line.BeginArrowheadLength =
msoArrowheadLengthMedium
Selection.ShapeRange.Line.BeginArrowheadWidth =
msoArrowheadWidthMedium
Selection.ShapeRange.Line.BeginArrowheadStyle = msoArrowheadNone
Selection.ShapeRange.Line.EndArrowheadLength =
msoArrowheadLengthMedium
Selection.ShapeRange.Line.EndArrowheadWidth =
msoArrowheadWidthMedium
Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadNone
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Rotation = 0#
Selection.ShapeRange.Left = 131#
Selection.ShapeRange.Top = 299.5
Selection.ShapeRange.RelativeHorizontalPosition = _
wdRelativeHorizontalPositionColumn
Selection.ShapeRange.RelativeVerticalPosition = _
wdRelativeVerticalPositionParagraph
Selection.ShapeRange.Left = InchesToPoints(0.57)
Selection.ShapeRange.Top = InchesToPoints(3.16)
Selection.ShapeRange.LockAnchor = False
Selection.ShapeRange.LayoutInCell = True
Selection.ShapeRange.WrapFormat.AllowOverlap = True
Selection.ShapeRange.WrapFormat.Side = wdWrapBoth
Selection.ShapeRange.WrapFormat.DistanceTop = InchesToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceBottom = InchesToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceLeft = InchesToPoints(0.13)
Selection.ShapeRange.WrapFormat.DistanceRight =
InchesToPoints(0.13)
Selection.ShapeRange.WrapFormat.Type = 3
Selection.ShapeRange.ZOrder 4
ActiveDocument.Shapes.AddLine(135.15, 236.4, 156.9, 258.1).Select
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 4.5
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.ForeColor.RGB = RGB(0, 0, 255)
Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
Selection.ShapeRange.Line.BeginArrowheadLength =
msoArrowheadLengthMedium
Selection.ShapeRange.Line.BeginArrowheadWidth =
msoArrowheadWidthMedium
Selection.ShapeRange.Line.BeginArrowheadStyle = msoArrowheadNone
Selection.ShapeRange.Line.EndArrowheadLength =
msoArrowheadLengthMedium
Selection.ShapeRange.Line.EndArrowheadWidth =
msoArrowheadWidthMedium
Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadNone
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Rotation = 0#
Selection.ShapeRange.Left = 135.35
Selection.ShapeRange.Top = 236.15
Selection.ShapeRange.RelativeHorizontalPosition = _
wdRelativeHorizontalPositionColumn
Selection.ShapeRange.RelativeVerticalPosition = _
wdRelativeVerticalPositionParagraph
Selection.ShapeRange.Left = InchesToPoints(0.63)
Selection.ShapeRange.Top = InchesToPoints(2.28)
Selection.ShapeRange.LockAnchor = False
Selection.ShapeRange.LayoutInCell = True
Selection.ShapeRange.WrapFormat.AllowOverlap = True
Selection.ShapeRange.WrapFormat.Side = wdWrapBoth
Selection.ShapeRange.WrapFormat.DistanceTop = InchesToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceBottom = InchesToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceLeft = InchesToPoints(0.13)
Selection.ShapeRange.WrapFormat.DistanceRight =
InchesToPoints(0.13)
Selection.ShapeRange.WrapFormat.Type = 3
Selection.ShapeRange.ZOrder 4
ActiveDocument.Shapes.Range(Array("Oval 2", "Rectangle 3", "Line
4", _
"Line 5" _
, "Line 6", "Line 7")).Select
Selection.ShapeRange.Group.Select
ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft 33.3
Selection.ShapeRange.IncrementTop -34.65
ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft 25.15
Selection.ShapeRange.IncrementTop -20.35
ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft 43.45
Selection.ShapeRange.IncrementTop -26.5
ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft 30.55
Selection.ShapeRange.IncrementTop -6.1
ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft 30.55
Selection.ShapeRange.IncrementTop 4.05
ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft 12.2
Selection.ShapeRange.IncrementTop 17.65
Selection.ShapeRange.ScaleWidth 1.16, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 1.13, msoFalse,
msoScaleFromTopLeft
ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft 29.9
Selection.ShapeRange.IncrementTop 25.1
Selection.ShapeRange.ScaleWidth 1.41, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 1.16, msoFalse,
msoScaleFromTopLeft
ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft 20.35
Selection.ShapeRange.IncrementTop 36#
Selection.ShapeRange.ScaleWidth 1.08, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 1.1, msoFalse, msoScaleFromTopLeft
ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft 4.75
Selection.ShapeRange.IncrementTop 27.85
Selection.ShapeRange.IncrementRotation 5.24
ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft -19.05
Selection.ShapeRange.IncrementTop 26.5
Selection.ShapeRange.IncrementRotation 9.28
ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft -48.2
Selection.ShapeRange.IncrementTop 8.8
Selection.ShapeRange.IncrementRotation 8.64
ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft -31.25
Selection.ShapeRange.IncrementTop -9.55
Selection.ShapeRange.IncrementRotation 7.08
Selection.ShapeRange.ScaleWidth 0.84, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.91, msoFalse,
msoScaleFromTopLeft
ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft -36#
Selection.ShapeRange.IncrementTop -42.8
ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementRotation 17.49
ActiveDocument.Shapes("Group 8").Select
ActiveDocument.Shapes("Group 8").Select
ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.ScaleHeight 0.89, msoFalse,
msoScaleFromTopLeft
Selection.ShapeRange.ScaleWidth 0.66, msoFalse, msoScaleFromTopLeft
ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft 23.1
Selection.ShapeRange.IncrementTop -38#
Selection.ShapeRange.IncrementRotation 18.79
Selection.ShapeRange.ScaleHeight 0.83, msoFalse,
msoScaleFromTopLeft
ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft 10.2
Selection.ShapeRange.IncrementTop 19#
Selection.ShapeRange.IncrementRotation 9.53
Selection.ShapeRange.ScaleHeight 0.77, msoFalse,
msoScaleFromTopLeft
Selection.ShapeRange.ScaleWidth 0.68, msoFalse, msoScaleFromTopLeft
ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft 17#
Selection.ShapeRange.IncrementTop 29.9
Selection.ShapeRange.IncrementRotation 19.14
ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft -6.75
Selection.ShapeRange.IncrementTop 19.05
ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.ScaleHeight 0.76, msoFalse,
msoScaleFromTopLeft
Selection.ShapeRange.ScaleWidth 0.67, msoFalse,
msoScaleFromBottomRight
ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft -37.35
Selection.ShapeRange.IncrementTop 20.35
Selection.ShapeRange.IncrementRotation 37.2
ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.ScaleHeight 0.87, msoFalse,
msoScaleFromTopLeft
Selection.ShapeRange.ScaleWidth 0.68, msoFalse,
msoScaleFromBottomRight
ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft -22.4
Selection.ShapeRange.IncrementTop -15.6
Selection.ShapeRange.ScaleHeight 0.79, msoFalse,
msoScaleFromTopLeft
Selection.ShapeRange.ScaleWidth 1.36, msoFalse,
msoScaleFromBottomRight
Selection.ShapeRange.IncrementRotation 13.49
ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft 11.55
Selection.ShapeRange.IncrementTop -11.55
Selection.ShapeRange.IncrementRotation 21.12
Selection.ShapeRange.ScaleWidth 0.67, msoFalse,
msoScaleFromBottomRight
Selection.ShapeRange.ScaleHeight 0.61, msoFalse,
msoScaleFromTopLeft
ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft -7.5
Selection.ShapeRange.IncrementTop -4.75
Selection.ShapeRange.IncrementRotation 16.34
ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.ScaleWidth 0.72, msoFalse,
msoScaleFromBottomRight
Selection.ShapeRange.ScaleHeight 0.79, msoFalse,
msoScaleFromTopLeft
ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft -5.45
Selection.ShapeRange.IncrementTop -7.45
Selection.ShapeRange.IncrementRotation 18.06
ActiveDocument.Shapes("Group 8").Select
ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.ScaleWidth 0.71, msoFalse,
msoScaleFromBottomRight
Selection.ShapeRange.ScaleHeight 0.8, msoFalse, msoScaleFromTopLeft
ActiveDocument.Shapes("Group 8").Select
End Sub
Click to expand...
Click to expand...
Click to expand...
 
S

Steve Rindsberg

Is there any way to control (from code or another macro) where this
numbering begins? ie
Click to expand...

I don't think so, but what's the difference if you can re-name the shape
anything you like at the time it's created?

AAMOF, it's weirder than it looks on the surface if the drawing implementation
is anything like it is in PPT.

The shape has a name assigned when it's created.
It also gets its .Name property set to the name the shape is given at birth.

You can change the .Name property but not the actual name of the shape.

Most of the time it doesn't matter. The .Name property is enough.
 
M

Mad Scientist Jr

I don't think so, but what's the difference if you can re-name the shape
anything you like at the time it's created?
Click to expand...

My purpose is, record a macro, and then draw stuff on the screen, move
it around, etc, like an animated flash cartoon, then stop recording and
then you have a word macro that is like a flash animation. The only
tweaking of the code necessary should be adding a timer (250 ms or so)
inbetween frames. However, because Word doesn't explicitly set the
object names in the macro code when you record a macro and create new
objects, your macro won't play back, because it uses its own object
counter when naming objects. If you send it to another user or open a
new Word session and try to run the macro as is, it often won't work. I
fixed the code below to name the objects explicitly so you can see what
the animation looks like.

If it was possible to get Word's (or Powerpoint etc) macro recorder to
explicitly name the objects, you wouldn't need special software or
skills like Flash to create animations, only Office.

Try pasting this code in a Word doc and running macro testDraw2:


Public Declare Function GetTickCount Lib "kernel32.dll" () As Long

Sub subTimer(iMilliseconds As Integer)
Dim iTickCount As Long
DoEvents
iTickCount = GetTickCount
Do While (GetTickCount - iTickCount) < iMilliseconds
Loop
DoEvents
End Sub

Sub testDraw2()
Dim oShape As Shape
Dim oShapeRange As ShapeRange

Set oShape = ActiveDocument.Shapes.AddShape(msoShapeOval, 86.25,
166.4, 61.85, 65.2)
oShape.Select
oShape.Name = "Oval 1"
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(0, 0, 255)
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 0.75
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.ForeColor.RGB = RGB(0, 0, 0)
Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Rotation = 0#
Selection.ShapeRange.Left = 86.4
Selection.ShapeRange.Top = 166.3
Selection.ShapeRange.RelativeHorizontalPosition = _
wdRelativeHorizontalPositionColumn
Selection.ShapeRange.RelativeVerticalPosition = _
wdRelativeVerticalPositionParagraph
Selection.ShapeRange.Left = InchesToPoints(-0.05)
Selection.ShapeRange.Top = InchesToPoints(1.31)
Selection.ShapeRange.LockAnchor = False
Selection.ShapeRange.LayoutInCell = True
Selection.ShapeRange.WrapFormat.AllowOverlap = True
Selection.ShapeRange.WrapFormat.Side = wdWrapBoth
Selection.ShapeRange.WrapFormat.DistanceTop = InchesToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceBottom = InchesToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceLeft = InchesToPoints(0.13)
Selection.ShapeRange.WrapFormat.DistanceRight =
InchesToPoints(0.13)
Selection.ShapeRange.WrapFormat.Type = 3
Selection.ShapeRange.ZOrder 4





Set oShape = ActiveDocument.Shapes.AddShape(msoShapeRectangle,
103.25, 235#, 29.9, 61.85)
oShape.Name = "Rect 1"
oShape.Select
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(51, 102, 255)
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 0.75
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.ForeColor.RGB = RGB(0, 0, 0)
Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Rotation = 0#
Selection.ShapeRange.Left = 102.95
Selection.ShapeRange.Top = 234.7
Selection.ShapeRange.RelativeHorizontalPosition = _
wdRelativeHorizontalPositionColumn
Selection.ShapeRange.RelativeVerticalPosition = _
wdRelativeVerticalPositionParagraph
Selection.ShapeRange.Left = InchesToPoints(0.18)
Selection.ShapeRange.Top = InchesToPoints(2.26)
Selection.ShapeRange.LockAnchor = False
Selection.ShapeRange.LayoutInCell = True
Selection.ShapeRange.WrapFormat.AllowOverlap = True
Selection.ShapeRange.WrapFormat.Side = wdWrapBoth
Selection.ShapeRange.WrapFormat.DistanceTop = InchesToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceBottom = InchesToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceLeft = InchesToPoints(0.13)
Selection.ShapeRange.WrapFormat.DistanceRight =
InchesToPoints(0.13)
Selection.ShapeRange.WrapFormat.Type = 3
Selection.ShapeRange.ZOrder 4




Set oShape = ActiveDocument.Shapes.AddLine(105.3, 298.85, 105.3,
349.15)
oShape.Name = "Line 1"
oShape.Select
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 4.5
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.ForeColor.RGB = RGB(0, 0, 255)
Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
Selection.ShapeRange.Line.BeginArrowheadLength =
msoArrowheadLengthMedium
Selection.ShapeRange.Line.BeginArrowheadWidth =
msoArrowheadWidthMedium
Selection.ShapeRange.Line.BeginArrowheadStyle = msoArrowheadNone
Selection.ShapeRange.Line.EndArrowheadLength =
msoArrowheadLengthMedium
Selection.ShapeRange.Line.EndArrowheadWidth =
msoArrowheadWidthMedium
Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadNone
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Rotation = 0#
Selection.ShapeRange.Left = 105.1
Selection.ShapeRange.Top = 298.8
Selection.ShapeRange.RelativeHorizontalPosition = _
wdRelativeHorizontalPositionColumn
Selection.ShapeRange.RelativeVerticalPosition = _
wdRelativeVerticalPositionParagraph
Selection.ShapeRange.Left = InchesToPoints(0.21)
Selection.ShapeRange.Top = InchesToPoints(3.15)
Selection.ShapeRange.LockAnchor = False
Selection.ShapeRange.LayoutInCell = True
Selection.ShapeRange.WrapFormat.AllowOverlap = True
Selection.ShapeRange.WrapFormat.Side = wdWrapBoth
Selection.ShapeRange.WrapFormat.DistanceTop = InchesToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceBottom = InchesToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceLeft = InchesToPoints(0.13)
Selection.ShapeRange.WrapFormat.DistanceRight =
InchesToPoints(0.13)
Selection.ShapeRange.WrapFormat.Type = 3
Selection.ShapeRange.ZOrder 4

Set oShape = ActiveDocument.Shapes.AddLine(131.1, 299.55, 131.1,
349.15)
oShape.Name = "Line 2"
oShape.Select
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 6#
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.ForeColor.RGB = RGB(0, 0, 255)
Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
Selection.ShapeRange.Line.BeginArrowheadLength =
msoArrowheadLengthMedium
Selection.ShapeRange.Line.BeginArrowheadWidth =
msoArrowheadWidthMedium
Selection.ShapeRange.Line.BeginArrowheadStyle = msoArrowheadNone
Selection.ShapeRange.Line.EndArrowheadLength =
msoArrowheadLengthMedium
Selection.ShapeRange.Line.EndArrowheadWidth =
msoArrowheadWidthMedium
Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadNone
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Rotation = 0#
Selection.ShapeRange.Left = 131#
Selection.ShapeRange.Top = 299.5
Selection.ShapeRange.RelativeHorizontalPosition = _
wdRelativeHorizontalPositionColumn
Selection.ShapeRange.RelativeVerticalPosition = _
wdRelativeVerticalPositionParagraph
Selection.ShapeRange.Left = InchesToPoints(0.57)
Selection.ShapeRange.Top = InchesToPoints(3.16)
Selection.ShapeRange.LockAnchor = False
Selection.ShapeRange.LayoutInCell = True
Selection.ShapeRange.WrapFormat.AllowOverlap = True
Selection.ShapeRange.WrapFormat.Side = wdWrapBoth
Selection.ShapeRange.WrapFormat.DistanceTop = InchesToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceBottom = InchesToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceLeft = InchesToPoints(0.13)
Selection.ShapeRange.WrapFormat.DistanceRight =
InchesToPoints(0.13)
Selection.ShapeRange.WrapFormat.Type = 3
Selection.ShapeRange.ZOrder 4

Set oShape = ActiveDocument.Shapes.AddLine(78.1, 237.05, 101.2,
254.7)
oShape.Name = "Line 3"
oShape.Select
Selection.ShapeRange.Flip msoFlipHorizontal
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 4.5
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.ForeColor.RGB = RGB(0, 0, 255)
Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
Selection.ShapeRange.Line.BeginArrowheadLength =
msoArrowheadLengthMedium
Selection.ShapeRange.Line.BeginArrowheadWidth =
msoArrowheadWidthMedium
Selection.ShapeRange.Line.BeginArrowheadStyle = msoArrowheadNone
Selection.ShapeRange.Line.EndArrowheadLength =
msoArrowheadLengthMedium
Selection.ShapeRange.Line.EndArrowheadWidth =
msoArrowheadWidthMedium
Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadNone
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Rotation = 0#
Selection.ShapeRange.Left = 77.75
Selection.ShapeRange.Top = 236.85
Selection.ShapeRange.RelativeHorizontalPosition = _
wdRelativeHorizontalPositionColumn
Selection.ShapeRange.RelativeVerticalPosition = _
wdRelativeVerticalPositionParagraph
Selection.ShapeRange.Left = InchesToPoints(-0.17)
Selection.ShapeRange.Top = InchesToPoints(2.29)
Selection.ShapeRange.LockAnchor = False
Selection.ShapeRange.LayoutInCell = True
Selection.ShapeRange.WrapFormat.AllowOverlap = True
Selection.ShapeRange.WrapFormat.Side = wdWrapBoth
Selection.ShapeRange.WrapFormat.DistanceTop = InchesToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceBottom = InchesToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceLeft = InchesToPoints(0.13)
Selection.ShapeRange.WrapFormat.DistanceRight =
InchesToPoints(0.13)
Selection.ShapeRange.WrapFormat.Type = 3
Selection.ShapeRange.ZOrder 4

ActiveDocument.Shapes("Line 2").Select
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 4.5
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.ForeColor.RGB = RGB(0, 0, 255)
Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
Selection.ShapeRange.Line.BeginArrowheadLength =
msoArrowheadLengthMedium
Selection.ShapeRange.Line.BeginArrowheadWidth =
msoArrowheadWidthMedium
Selection.ShapeRange.Line.BeginArrowheadStyle = msoArrowheadNone
Selection.ShapeRange.Line.EndArrowheadLength =
msoArrowheadLengthMedium
Selection.ShapeRange.Line.EndArrowheadWidth =
msoArrowheadWidthMedium
Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadNone
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Rotation = 0#
Selection.ShapeRange.Left = 131#
Selection.ShapeRange.Top = 299.5
Selection.ShapeRange.RelativeHorizontalPosition = _
wdRelativeHorizontalPositionColumn
Selection.ShapeRange.RelativeVerticalPosition = _
wdRelativeVerticalPositionParagraph
Selection.ShapeRange.Left = InchesToPoints(0.57)
Selection.ShapeRange.Top = InchesToPoints(3.16)
Selection.ShapeRange.LockAnchor = False
Selection.ShapeRange.LayoutInCell = True
Selection.ShapeRange.WrapFormat.AllowOverlap = True
Selection.ShapeRange.WrapFormat.Side = wdWrapBoth
Selection.ShapeRange.WrapFormat.DistanceTop = InchesToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceBottom = InchesToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceLeft = InchesToPoints(0.13)
Selection.ShapeRange.WrapFormat.DistanceRight =
InchesToPoints(0.13)
Selection.ShapeRange.WrapFormat.Type = 3
Selection.ShapeRange.ZOrder 4

Set oShape = ActiveDocument.Shapes.AddLine(135.15, 236.4, 156.9,
258.1)
oShape.Name = "Line 4"
oShape.Select
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 4.5
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.ForeColor.RGB = RGB(0, 0, 255)
Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
Selection.ShapeRange.Line.BeginArrowheadLength =
msoArrowheadLengthMedium
Selection.ShapeRange.Line.BeginArrowheadWidth =
msoArrowheadWidthMedium
Selection.ShapeRange.Line.BeginArrowheadStyle = msoArrowheadNone
Selection.ShapeRange.Line.EndArrowheadLength =
msoArrowheadLengthMedium
Selection.ShapeRange.Line.EndArrowheadWidth =
msoArrowheadWidthMedium
Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadNone
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Rotation = 0#
Selection.ShapeRange.Left = 135.35
Selection.ShapeRange.Top = 236.15
Selection.ShapeRange.RelativeHorizontalPosition = _
wdRelativeHorizontalPositionColumn
Selection.ShapeRange.RelativeVerticalPosition = _
wdRelativeVerticalPositionParagraph
Selection.ShapeRange.Left = InchesToPoints(0.63)
Selection.ShapeRange.Top = InchesToPoints(2.28)
Selection.ShapeRange.LockAnchor = False
Selection.ShapeRange.LayoutInCell = True
Selection.ShapeRange.WrapFormat.AllowOverlap = True
Selection.ShapeRange.WrapFormat.Side = wdWrapBoth
Selection.ShapeRange.WrapFormat.DistanceTop = InchesToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceBottom = InchesToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceLeft = InchesToPoints(0.13)
Selection.ShapeRange.WrapFormat.DistanceRight =
InchesToPoints(0.13)
Selection.ShapeRange.WrapFormat.Type = 3
Selection.ShapeRange.ZOrder 4

Set oShape = ActiveDocument.Shapes.Range(Array("Oval 1", "Rect 1",
"Line 1", "Line 2", "Line 3", "Line 4")).Group
oShape.Select
'Selection.ShapeRange.Group.Select
oShape.Name = "Group 8"

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft 33.3
Selection.ShapeRange.IncrementTop -34.65
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft 25.15
Selection.ShapeRange.IncrementTop -20.35
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft 43.45
Selection.ShapeRange.IncrementTop -26.5
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft 30.55
Selection.ShapeRange.IncrementTop -6.1
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft 30.55
Selection.ShapeRange.IncrementTop 4.05
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft 12.2
Selection.ShapeRange.IncrementTop 17.65
Selection.ShapeRange.ScaleWidth 1.16, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 1.13, msoFalse,
msoScaleFromTopLeft
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft 29.9
Selection.ShapeRange.IncrementTop 25.1
Selection.ShapeRange.ScaleWidth 1.41, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 1.16, msoFalse,
msoScaleFromTopLeft
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft 20.35
Selection.ShapeRange.IncrementTop 36#
Selection.ShapeRange.ScaleWidth 1.08, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 1.1, msoFalse, msoScaleFromTopLeft
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft 4.75
Selection.ShapeRange.IncrementTop 27.85
Selection.ShapeRange.IncrementRotation 5.24
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft -19.05
Selection.ShapeRange.IncrementTop 26.5
Selection.ShapeRange.IncrementRotation 9.28
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft -48.2
Selection.ShapeRange.IncrementTop 8.8
Selection.ShapeRange.IncrementRotation 8.64
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft -31.25
Selection.ShapeRange.IncrementTop -9.55
Selection.ShapeRange.IncrementRotation 7.08
Selection.ShapeRange.ScaleWidth 0.84, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.91, msoFalse,
msoScaleFromTopLeft
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft -36#
Selection.ShapeRange.IncrementTop -42.8
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementRotation 17.49
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.ScaleHeight 0.89, msoFalse,
msoScaleFromTopLeft
Selection.ShapeRange.ScaleWidth 0.66, msoFalse, msoScaleFromTopLeft
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft 23.1
Selection.ShapeRange.IncrementTop -38#
Selection.ShapeRange.IncrementRotation 18.79
Selection.ShapeRange.ScaleHeight 0.83, msoFalse,
msoScaleFromTopLeft
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft 10.2
Selection.ShapeRange.IncrementTop 19#
Selection.ShapeRange.IncrementRotation 9.53
Selection.ShapeRange.ScaleHeight 0.77, msoFalse,
msoScaleFromTopLeft
Selection.ShapeRange.ScaleWidth 0.68, msoFalse, msoScaleFromTopLeft
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft 17#
Selection.ShapeRange.IncrementTop 29.9
Selection.ShapeRange.IncrementRotation 19.14
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft -6.75
Selection.ShapeRange.IncrementTop 19.05
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.ScaleHeight 0.76, msoFalse,
msoScaleFromTopLeft
Selection.ShapeRange.ScaleWidth 0.67, msoFalse,
msoScaleFromBottomRight
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft -37.35
Selection.ShapeRange.IncrementTop 20.35
Selection.ShapeRange.IncrementRotation 37.2
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.ScaleHeight 0.87, msoFalse,
msoScaleFromTopLeft
Selection.ShapeRange.ScaleWidth 0.68, msoFalse,
msoScaleFromBottomRight
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft -22.4
Selection.ShapeRange.IncrementTop -15.6
Selection.ShapeRange.ScaleHeight 0.79, msoFalse,
msoScaleFromTopLeft
Selection.ShapeRange.ScaleWidth 1.36, msoFalse,
msoScaleFromBottomRight
Selection.ShapeRange.IncrementRotation 13.49
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft 11.55
Selection.ShapeRange.IncrementTop -11.55
Selection.ShapeRange.IncrementRotation 21.12
Selection.ShapeRange.ScaleWidth 0.67, msoFalse,
msoScaleFromBottomRight
Selection.ShapeRange.ScaleHeight 0.61, msoFalse,
msoScaleFromTopLeft
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft -7.5
Selection.ShapeRange.IncrementTop -4.75
Selection.ShapeRange.IncrementRotation 16.34
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.ScaleWidth 0.72, msoFalse,
msoScaleFromBottomRight
Selection.ShapeRange.ScaleHeight 0.79, msoFalse,
msoScaleFromTopLeft
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.IncrementLeft -5.45
Selection.ShapeRange.IncrementTop -7.45
Selection.ShapeRange.IncrementRotation 18.06
Call subTimer(100)

ActiveDocument.Shapes("Group 8").Select
Selection.ShapeRange.ScaleWidth 0.71, msoFalse,
msoScaleFromBottomRight
Selection.ShapeRange.ScaleHeight 0.8, msoFalse, msoScaleFromTopLeft
ActiveDocument.Shapes("Group 8").Select
End Sub
 
S

Steve Rindsberg

Mad Scientist said:
My purpose is, record a macro, and then draw stuff on the screen, move
it around, etc, like an animated flash cartoon, then stop recording and
then you have a word macro that is like a flash animation. The only
tweaking of the code necessary should be adding a timer (250 ms or so)
inbetween frames. However, because Word doesn't explicitly set the
object names in the macro code when you record a macro and create new
objects, your macro won't play back, because it uses its own object
counter when naming objects. If you send it to another user or open a
new Word session and try to run the macro as is, it often won't work. I
fixed the code below to name the objects explicitly so you can see what
the animation looks like.
Click to expand...

That's a limitation (or feature) of the recorder you'll have to work around.
Relying on a recorded macro ALWAYS giving a newly created shape a particular name
will simply not work. What if there's already an Oval1 on my slide when I run the
macro?

But again, since the macro itself can name the shape after creating it, I don't
see that it's a problem, no matter where it runs. Modify the macro and you're
done.

Or start with a shape already selected then record your macro to have the
recording apply to the current selection rather than a specific shape. When
played back, it'll act on the current selection, if any.

Or error if there isn't one.

Another reason why distributing raw macro recordings isn't really a wise idea.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Text Overflow 4
Macro needed to insert Excel spreadsheet as photo into Word 0
Adding Text Boxes to New Page 4
Creating Shape at runtime 2
Printing same page twice with a subtle change 0
pasting into Word... 0
PLEASE HELP...How do I update a pivot table with VBA? 0
regarding: Trouble Drawing shapes with macros in Excel 0

Top