Salutare,
Întâmpin o eroare dubioasă în VBA când încerc să fac următorul lucru:
- 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