Eroare VBA

280 viewsIntrebari
0

Salutare,

Întâmpin o eroare dubioasă în VBA când încerc să fac următorul lucru:

  1. Am 4 grafice și 2 butoane
  • Tab_Button_Sales_Units
  • Tab_Button_Sales_Revenue
  • Line_Chart_Sales_Units
  • Map_Chart_Sales_Units
  • Line_Chart_Sales_Revenue
  • Map_Chart_Sales_Revenue

Doresc ca în momentul în care folosesc unul din cele două butoane(sales sau units) să îmi selecteze doar graficele asociate fiecărui buton. Codul pe care l-am folosit:

Sub Display_Tab_Sales_Revenue()

With ActiveSheet

‘Visibility of Tab Buttons

With .Shapes(“Tab_Button_Sales_Revenue”)

.TextFrame.Characters.Font.Color = RGB(0, 0, 0)

.Fill.Transparency = 0#

End With

With .Shapes(“Tab_Button_Sales_Units”)

.TextFrame.Characters.Font.Color = RGB(255, 255, 255)

.Fill.Transparency = 1#

End With

‘Visibility of Tab Contents

.Shapes(“Map_Chart_Sales_Revenue”).Visible = True

.Shapes(“Line_Chart_Sales_Revenue”).Visible = True

.Shapes(“Map_Chart_Sales_Units”).Visible = False

.Shapes(“Line_Chart_Sales_Units”).Visible = False

End With

End Sub

Sub Display_Tab_Sales_Units()

With ActiveSheet

‘Visibility of Tab Buttons

With .Shapes(“Tab_Button_Sales_Revenue”)

.TextFrame.Characters.Font.Color = RGB(255, 255, 255)

.Fill.Transparency = 1#

End With

With .Shapes(“Tab_Button_Sales_Units”)

.TextFrame.Characters.Font.Color = RGB(0, 0, 0)

.Fill.Transparency = 0#

End With

‘Visibility of Tab Contents

.Shapes(“Map_Chart_Sales_Revenue”).Visible = False

.Shapes(“Line_Chart_Sales_Revenue”).Visible = False

.Shapes(“Map_Chart_Sales_Units”).Visible = True

.Shapes(“Line_Chart_Sales_Units”).Visible = True

End With

End Sub

Asked question