I'm trying to automate some call outs for excel 2003, I've alerady got the call out created and formatted, but I cannot seem to find any property or method that would actually add some text inside the call out...
here is the code I'm using to create the shape and give it format.
CODE
shape_one = oWS.Shapes
Dim sh As Excel.Shape
sh = shape_one.AddShape(Microsoft.Office.Core.MsoAutoShapeType.msoShapeLineCallout1BorderandAccentBar, 250, 250, 150, 75)
With sh
.Name = "testing call"
.Fill.BackColor.RGB = RGB(250, 250, 250)
.Fill.Solid()
.Callout.CustomDrop(25)
.Callout.CustomLength(150)
.Callout.Angle = Microsoft.Office.Core.MsoCalloutAngleType.msoCalloutAngle30
End With
where shape_one is a shapes object.
hope, you can help me out with this one...
thanks
This post has been edited by cero2k: 14 May, 2008 - 12:38 PM
14 May, 2008 - 12:28 PM
| 