Callout macro needed

Peter Denly · #1 07-20-2011, 02:37 AM

The error is still there. But…

Removed 'With' 'End With' seems to have cured this

This runs ok down to .Anchor.Cut where I now get the error:

Run-time error '424' object required

Any thoughts? Thanks

Current running code:

Code:

Sub Demo2()
'
' Demo2 Macro
'
'
Dim Shp As Shape
Selection.Copy
Set Shp = ActiveDocument.Shapes.AddCallout(Type:=msoCalloutOne, _
Left:=100, Top:=40, Width:=150, Height:=75)
Shp.TextFrame.TextRange.PasteAndFormat (wdFormatOriginalFormatting)
Selection.Style = "Normal"
With Shp
  .Anchor.Cut
  Selection.Paste
  .WrapFormat.Type = wdWrapSquare
  .RelativeVerticalPosition = wdRelativeVerticalPositionParagraph
  .Top = 0
End With
Rng.Select
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Outlook help needed	Tricia	Outlook	4	06-21-2011 02:56 PM
Needed help with MSI Package	ahaseeb	Outlook	0	01-17-2011 10:19 PM
AverageIf and Div/0 help needed	jim831	Excel	2	10-30-2010 04:54 AM
help needed!!!	thunder14	Word	1	10-17-2009 02:57 PM
Help needed :)	thechief55	PowerPoint	1	04-28-2009 01:25 PM