[FONT=Verdana, serif]Helloguys[/FONT][FONT=Verdana, serif] [/FONT][FONT=Verdana, serif]
Icould use a little help . I want to insert a box .....Then " Adda textbox "at the same time . Preferably i would like to groupit as well. So that when i move the rectangle the text box isattached to it . Could someone please help guide me . I am very newto vba and just staring out . I really want to group it upon itscreation u Know ....Thank you guys happy computing[/FONT][FONT=Verdana, serif] [/FONT][FONT=Verdana, serif]
EricMaxfield ....[/FONT][FONT=Verdana, serif] [/FONT][FONT=Verdana, serif]
[/FONT]
Icould use a little help . I want to insert a box .....Then " Adda textbox "at the same time . Preferably i would like to groupit as well. So that when i move the rectangle the text box isattached to it . Could someone please help guide me . I am very newto vba and just staring out . I really want to group it upon itscreation u Know ....Thank you guys happy computing[/FONT][FONT=Verdana, serif] [/FONT][FONT=Verdana, serif]
EricMaxfield ....[/FONT][FONT=Verdana, serif] [/FONT][FONT=Verdana, serif]
[/FONT]
Code:
[COLOR=#333333][FONT=Verdana, serif][SIZE=2]
SubDrawRect() '
Set myDocument = ActiveSheet
WithmyDocument.Shapes.AddShape(msoShapeRectangle, _
480, 170, 200,200)
.Name = "A"
.Fill.Visible =msoFalse
.Line.ForeColor.RGB = RGB(48, 48, 48)
.Line.DashStyle= msoLineSolid
.Line.Weight = 2.5
End With
EndSub[/SIZE][/FONT][/COLOR]