Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Sub MakeButton()
- ActiveSheet.Shapes.AddShape(msoShapeOval, 228#, 557.25, 126.1, 126.1).Select
- With Selection
- .Characters.Text = "1 ADDER"
- .ShapeRange.Fill.Visible = msoTrue
- .ShapeRange.Fill.ForeColor.SchemeColor = 3
- .ShapeRange.Line.Visible = msoTrue
- .ShapeRange.Line.ForeColor.SchemeColor = 3
- .ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
- .Name = "MyButton"
- .OnAction = "whatever"
- .Top = Range("C3").Top
- .Left = Range("C3").Left
- End With
- End Sub
- Sub whatever()
- Cells(ActiveCell.Row, 1).Value = 1
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement