I am using Excel 2007 and creating code that will run in Excel 2003.
Can someone help me with my code? It is not executing the OnAction macro.
This is my first time creating a shape that executes a macro and I am getting a popup message when I click on the shape that says, "Cannot run the macro Shapeclick1. The macro may not be available in this workbook or all macros may be disabled"
1. The macro is available in the same module as the code that created the shape.
2. Macros are not disabled because I created the shape successfully (minus the OnAction command working)
Here are the two subroutines that create the shape and then the macro it is supposed to run:
Public newbtn As Shape
The code above successfully creates the shape, but the .OnAction is not working.
A note on the private subs: I like the subroutines to be private so users cannot see them on the macro list. Public variables work in other code I have written. I tried removing the private from the Shapeclick1 sub and still receive the same error after recreating the shape.
Thank you in advance for your help.
Charles
Can someone help me with my code? It is not executing the OnAction macro.
This is my first time creating a shape that executes a macro and I am getting a popup message when I click on the shape that says, "Cannot run the macro Shapeclick1. The macro may not be available in this workbook or all macros may be disabled"
1. The macro is available in the same module as the code that created the shape.
2. Macros are not disabled because I created the shape successfully (minus the OnAction command working)
Here are the two subroutines that create the shape and then the macro it is supposed to run:
Public newbtn As Shape
Code:
Private Sub Create_232_ICT_TD_toPivot_Button()
Sheets("232 Charts").Select
Set newbtn = ActiveSheet.Shapes.AddShape _
(msoShapeRectangle, 10, 10, 95.76, 18)
newbtn.Fill.ForeColor.RGB = RGB(6, 56, 109)
newbtn.Select ' Selects the shape
Selection.Cut ' Cuts the shape
Range("E2").Select
ActiveSheet.Paste 'positions the shape in cell E2
With Selection
.Caption = "View Pivot Table"
.Font.Color = RGB(255, 255, 255)
.Font.FontStyle = "Bold"
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.OnAction = "ShapeClick1"
End With
End SubThe code above successfully creates the shape, but the .OnAction is not working.
Code:
Private Sub ShapeClick1()
Sheets("Top Defects Pivot").Select
ActiveSheet.PivotTables("Top_Defects").PivotFields _
("Assembly(s)").CurrentPage = "ARCT00232" 'Changes the PT Assembly #
ActiveSheet.PivotTables("Top_Defects") _
.PivotFields("Proc").CurrentPage = "IF1" ' Changes the PT dept.A note on the private subs: I like the subroutines to be private so users cannot see them on the macro list. Public variables work in other code I have written. I tried removing the private from the Shapeclick1 sub and still receive the same error after recreating the shape.
Thank you in advance for your help.
Charles
