I am currently trying to build a Excel dashboard where I use some visual basic codes.
The code is supposed to visualise a infobox when one click on a info button. The VB code is built (hopefully) in such a fashion that it is easy to scale throughout the dashboard to enhance the experience.
When I click on the info button the sysem error show on picture pops-up.
This is the VB code if uses:
Function Change_Info_Box_Visibility(Info_Button As Object, Info_Box As Object, Visible As Boolean)
If Visible = True Then
Info_Button_Inactive.Fill.ForeColor.RGB = RGB(255, 255, 0)
Info_Box.Visible = True
Info_Button_Inactive.Fill.ForeColor.RGB = RGB(255, 255, 255)
Info_Box.Visible = False
If .Shapes(“Info_Button_Brand”).Fill.ForeColor.RGB = RGB(255, 255, 255) Then
Call Change_Info_Box_Visibility(.Shapes(“Info_Button_Brand”), .Shapes(“Info_Box_brand”), True)
Call Change_Info_Box_Visibility(.Shapes(“Info_Button_Brand”), .Shapes(“Info_Box_brand”), False)
Does anyone have any suggestions on how I could solve this?
Windows 10, O365, VB applications 7.1