leal72
09-28-2009, 09:47 AM
I've added a shape with code but now I would like to format it, tried to see what was happening by recording a macro but it did not give me anything useful
I want to assign a macro to it.
this is how I added the macro using code
With ActiveSheet.Shapes.AddShape(msoShapeRoundedRectangle, _
ActiveCell.Left, ActiveCell.Top, 95, ActiveCell.Height).Fill
.ForeColor.RGB = RGB(128, 0, 0)
.Parent.Name = "MacroRun"
End With
I want to assign a macro to it.
this is how I added the macro using code
With ActiveSheet.Shapes.AddShape(msoShapeRoundedRectangle, _
ActiveCell.Left, ActiveCell.Top, 95, ActiveCell.Height).Fill
.ForeColor.RGB = RGB(128, 0, 0)
.Parent.Name = "MacroRun"
End With