lior03
03-21-2006, 05:23 AM
hello
the followingt macro insert a shape in activesheet.
it add a text.how can i autofit the shape?
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 510#, 1347.75, 126.75, 102.75) _
.Select
selection.Characters.Text = "??""? ???? ?? ???." & Chr(10) & "????? ??? ???? , ???."
With selection.Characters(Start:=1, Length:=38).Font
.Name = "Arial (Hebrew)"
.FontStyle = "bold"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlNone
.ColorIndex = 5
End With
End Sub
thanks
the followingt macro insert a shape in activesheet.
it add a text.how can i autofit the shape?
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 510#, 1347.75, 126.75, 102.75) _
.Select
selection.Characters.Text = "??""? ???? ?? ???." & Chr(10) & "????? ??? ???? , ???."
With selection.Characters(Start:=1, Length:=38).Font
.Name = "Arial (Hebrew)"
.FontStyle = "bold"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlNone
.ColorIndex = 5
End With
End Sub
thanks