I copied the code from the website link for Option 3. I am running 5 info boxes. Edited per directions in this amazing video and your website. Confirmed the same (other than the names). I am getting System Error &H80070057 (-2147024809). The Parameter is incorrect. I have been scratching my head for a few days and haven't a clue. Thank you for these incredible tutorials. By far the best out there.
Had the same issue. Noticed that my Info box was labelled as "Info Box" instead of "Info_Box" as declared in my Macro in the VBA script. I corrected the error and it was Perfect! So you may have to check to be sure that the labels in the Selection Pane match what you have in your script Hope this works for you too
I got the same issue - Try to rename your Objects and use only the alphabet, no ,._"1234 etc... then it should work. Furthermore I copied the Code of SKW Jeff and it worked finally for me :)
Must admit that I admire your work. Really enhancing knowledge. Like other comments down below I also faces issues with the VBA code. I have now advocated the option 3 VBA code for the Info button./ Info box. I looks good but when I run it it prompts a quite solid: system Error &H80070057 (-2147024809) The parameter is incorrect. This is my code that produces the error, can't understand where the fault is: 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 Else Info_Button_Inactive.Fill.ForeColor.RGB = RGB(255, 255, 255) Info_Box.Visible = False End If End Function Sub Change_Info_Box_brand_Visibility() With ActiveSheet 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) Else Call Change_Info_Box_Visibility(.Shapes(“Info_Button_Brand”), .Shapes(“Info_Box_brand”), False) End If End With End Sub
loved this tutorial, but when i copied/pasted the code from your CODE page it wouldn't work. Was nearly giving up, but then I just deleted everything and manually typed it all in...and it worked. No idea why but I'm happy now!
Great Content : When i try to implement the third method I get this error: Object doesn't Support this Property or Method. Any help would much be appreciated!
Did you Guys Call your arguments within the function in the right order? Function FunctionName (Chart as Object, Button as Object) first argument = Chart, second argument = Button Chart.AnyProperty = ( YX ) , Button.AnyProperty = ( XY ) " Sub Anything () Call FunctionName (*Chart* , *Button* ) => no Error Call FunctionName (*Button* , *Chart* ) => Error
great tutorial - I've implemented info buttons on a rota spreadsheet - question though, I have multiple info buttons and would like to switch off the others when clicking on a new one instead of having multiple info boxes displayed, any suggestions?
I have tried repeatedly 1st and 3rd options. (1st would meet my needs), however whether I cut and paste or retype, nothing is working for me. I keep getting a system error?
I love your videos and their content it has helped me to expand my knowledge so much, however it falls down with the code. yours works perfectly on screen, but when i try to copy it exactly it is so buggy that it never works :(.
Hi , Question on your dashboard. I followed the slicer episode and see in this one that you managed to change the Hover & Select color of the Multi select button and the clear filter button. Could you share with me how you did ? I am right not editing my dashboard and would like it to be perfect. For now I still have the yellow gradient hover color on the MultiSelect & Clear filter button (except I removed it from the item buttons). Help appreciated ! Thanks
When I click on the Icon, I get a message: "System Error @H80070057 (-2147024809). The parameter is incorrect." I copied the code exactly, spacing too. Anyone have any suggestions?
As usual, fantastic video ! I tried a small modification of the last version in the video: The foreground color is checked inside the function and the visibility boolean is removed. The call macro does not have an "if" statement anymore: 'Option 3: 1 Button Shapes / 1 function / 1 Simple Macros Function Change_lnfo_Box_Visibility(lnfo_Button As Object, lnfo_Box As Object) If lnfo_Button.Fill.ForeColor.RGB = RGB(255, 0, 0) Then lnfo_Button.Fill.ForeColor.RGB = RGB(0, 0, 0) lnfo_Box.Visible = True Else lnfo_Button.Fill.ForeColor.RGB = RGB(255, 0, 0) lnfo_Box.Visible = False End If End Function ------------------------------------------------------------------------ Sub Change_lnfo_Box_All() With ActiveSheet Call Change_lnfo_Box_Visibility(.Shapes("Icon_info_on"), .Shapes("Info_box_no_1")) End With End Sub
And make the names with a logic like: Box_AC Button_AC Then only have the AC part in the sub as the variable NAMe and something like box = “Box_” + NAME Button = “Button_”+NAME
For the ultimate simplicity and scalability, this can all be done in a single macro, no function needed, and assigned to all buttons. Application.Caller will return the shape name. Then if you keep the structure of your button and info box names the same, something like 'btn_Deliveries' and 'msg_Deliveries', you can easily determine the info box name from the button name that Application.Caller returns... Sub Message_Toggle() b = Application.Caller m = "msg" & Right(b, Len(b) - 3) If ActiveSheet.Shapes(m).Visible = False Then ActiveSheet.Shapes(m).Visible = True ActiveSheet.Shapes(b).Fill.ForeColor.RGB = RGB(255, 255, 0) Else ActiveSheet.Shapes(m).Visible = False ActiveSheet.Shapes(b).Fill.ForeColor.RGB = RGB(255, 255, 255) End If End Sub Obviously for good practice there are a few lines of code that could be added to declare variables and perhaps set the ActiveSheet as an object to get the intellisense.
as others have mentioned, this does not work in 365, get the message Object doesn't support this property or method on this line = If .Shapes(“Info_Button_Deliveries”).Fill.ForeColor.RGB = RGB(255,255,255) Then
Sir you please recommend an website or a page or a channel to learn Macros from scratch wherein a person can learn Macro who doesn't have an engeerning or a coding background
Hi Sir, I assume you are you are looking for a free but also professional resource to learn that?! There is one huge course on Skillshare.com that I can recommend if you want to learn VBA and Macros from scratch: It's called "Microsoft Excel Essentials: Level 3 - VBA Programming". You can take that course for free for 2 months via this link ► skillshare.eqcm.net/c/2018572/608192/4650 Hope that helps 😊
I was able to make a macro just like the first one but I don't know how am I supposed to save it so other people can use it too when they open the document, I'm not even sure if you can do that, anyone that can help with this?
Check out my new website excelfind.com for the Free Version of the Dashboard 🚀
⬇ FULL TUTORIAL SERIES PLAYLIST
[Ep. 1] Basic Dashboard ► ua-cam.com/video/cKkXtyjleX4/v-deo.html
[Ep. 2] Background & Tile Design ► ua-cam.com/video/NfEqCdfl23k/v-deo.html
[Ep. 3] Modern Slicer Design ► ua-cam.com/video/CbDTFfoePZY/v-deo.html
[Ep. 4] Auto-Refresh Pivot Charts ► ua-cam.com/video/Xdq7SE-z-Aw/v-deo.html
[Ep. 5] Interactive Info Button ► ua-cam.com/video/RZW-vQRr0nY/v-deo.html
[Ep. 6] Interactive Dashboard Tabs ► ua-cam.com/video/2qN5jUiJWMY/v-deo.html
[Ep. 7] Interactive Settings Menu ► ua-cam.com/video/fCFGqj4QcJU/v-deo.html
Thanks you for sharing your knowledge. I'm Brazilian and I liked your works so much!
Now this is what I was waiting for and the wait was worth it! Fantabulous video !
Thank you for this awesome feedback, Swapnil Jain 😊
Und ich hab schon probleme eine Tabelle in Excel ordentlich hinzubekommen xD geile Sachen, die du da machst!
I must say u are Mr GOd of excel and ppt. Loved the video
Thank you for this kind words 😊
You're amazing!!! Thank you for making these tutorial videos.
Thanks for your positive feedback, Cecille 😊 Glad you like them!
Your work is amazing, I'm very thankful, I have learned so many crucial things from you . I wish All the best.
I copied the code from the website link for Option 3. I am running 5 info boxes. Edited per directions in this amazing video and your website. Confirmed the same (other than the names). I am getting System Error &H80070057 (-2147024809). The Parameter is incorrect. I have been scratching my head for a few days and haven't a clue. Thank you for these incredible tutorials. By far the best out there.
Had the same issue.
Noticed that my Info box was labelled as "Info Box" instead of "Info_Box" as declared in my Macro in the VBA script.
I corrected the error and it was Perfect! So you may have to check to be sure that the labels in the Selection Pane match what you have in your script
Hope this works for you too
I got the same issue - Try to rename your Objects and use only the alphabet, no ,._"1234 etc... then it should work. Furthermore I copied the Code of SKW Jeff and it worked finally for me :)
Must admit that I admire your work. Really enhancing knowledge. Like other comments down below I also faces issues with the VBA code. I have now advocated the option 3 VBA code for the Info button./ Info box. I looks good but when I run it it prompts a quite solid: system Error &H80070057 (-2147024809) The parameter is incorrect. This is my code that produces the error, can't understand where the fault is:
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
Else
Info_Button_Inactive.Fill.ForeColor.RGB = RGB(255, 255, 255)
Info_Box.Visible = False
End If
End Function
Sub Change_Info_Box_brand_Visibility()
With ActiveSheet
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)
Else
Call Change_Info_Box_Visibility(.Shapes(“Info_Button_Brand”), .Shapes(“Info_Box_brand”), False)
End If
End With
End Sub
Thank you so much for the tutorial! But can I ask you to also show the example where you have multiple info box buttons? I did manage to do so :(
loved this tutorial, but when i copied/pasted the code from your CODE page it wouldn't work. Was nearly giving up, but then I just deleted everything and manually typed it all in...and it worked. No idea why but I'm happy now!
Thank you, Emily! Glad you figured it out 😊 Maybe I have a typo in the code on the website. Gonna check on that.
Amazing Tutorials
Gros travail de simplification bravo
Awesome work! Thanks for sharing
It's my pleasure 😊 Glad you like it!
Great Content :
When i try to implement the third method I get this error:
Object doesn't Support this Property or Method.
Any help would much be appreciated!
I got the same error.
Using 365 same issue
im on 365 and am having the same issue, can you please help?
Did you Guys Call your arguments within the function in the right order?
Function FunctionName (Chart as Object, Button as Object) first argument = Chart, second argument = Button
Chart.AnyProperty = ( YX ) , Button.AnyProperty = ( XY ) "
Sub Anything ()
Call FunctionName (*Chart* , *Button* ) => no Error
Call FunctionName (*Button* , *Chart* ) => Error
Amazing Man Thank for sharing...
Thanks dude you're awesome!
Amazing video. Thank you
Thanks for your positive feedback, Luke 😊
I love you man.
Amazing Bro! Waiting how you do to change Themes. 💟
Awesome..👏👏👏
Thank you, Gopi 😊
Thank you so much Sir
It's my pleasure 😊 Thanks for all you positive comments on my videos!
Your tutorials are great but it would be even greater if you can zoom out your recordings. As I am watching on iPad I could hardly see the Fba texts
Thanks so much.
great tutorial - I've implemented info buttons on a rota spreadsheet - question though, I have multiple info buttons and would like to switch off the others when clicking on a new one instead of having multiple info boxes displayed, any suggestions?
When i am following the 3rd method i get a "Object required" :(
I have tried repeatedly 1st and 3rd options. (1st would meet my needs), however whether I cut and paste or retype, nothing is working for me. I keep getting a system error?
I love your videos and their content it has helped me to expand my knowledge so much, however it falls down with the code. yours works perfectly on screen, but when i try to copy it exactly it is so buggy that it never works :(.
Hi Scott. That is unfortunate to hear. Where exactly do you have problems or bugs coming up? Which of the three options did you try to implement?
Hi , Question on your dashboard. I followed the slicer episode and see in this one that you managed to change the Hover & Select color of the Multi select button and the clear filter button. Could you share with me how you did ? I am right not editing my dashboard and would like it to be perfect. For now I still have the yellow gradient hover color on the MultiSelect & Clear filter button (except I removed it from the item buttons). Help appreciated ! Thanks
Just work for Apple, because they seem to do this automatically - on Windows it is not possible as far as I know
Amazing!!!!!!
yes, i like it a lot :)
When I click on the Icon, I get a message: "System Error @H80070057 (-2147024809). The parameter is incorrect." I copied the code exactly, spacing too. Anyone have any suggestions?
i had the same problem, just make sure you dont have a typo and it will be better to just tpe it manually
As usual, fantastic video !
I tried a small modification of the last version in the video:
The foreground color is checked inside the function and the visibility boolean is removed.
The call macro does not have an "if" statement anymore:
'Option 3: 1 Button Shapes / 1 function / 1 Simple Macros
Function Change_lnfo_Box_Visibility(lnfo_Button As Object, lnfo_Box As Object)
If lnfo_Button.Fill.ForeColor.RGB = RGB(255, 0, 0) Then
lnfo_Button.Fill.ForeColor.RGB = RGB(0, 0, 0)
lnfo_Box.Visible = True
Else
lnfo_Button.Fill.ForeColor.RGB = RGB(255, 0, 0)
lnfo_Box.Visible = False
End If
End Function
------------------------------------------------------------------------
Sub Change_lnfo_Box_All()
With ActiveSheet
Call Change_lnfo_Box_Visibility(.Shapes("Icon_info_on"), .Shapes("Info_box_no_1"))
End With
End Sub
Great idea, Sir! That makes it even better 🙌
Was thinking the same
And make the names with a logic like:
Box_AC
Button_AC
Then only have the AC part in the sub as the variable NAMe and something like
box = “Box_” + NAME
Button = “Button_”+NAME
For the ultimate simplicity and scalability, this can all be done in a single macro, no function needed, and assigned to all buttons.
Application.Caller will return the shape name. Then if you keep the structure of your button and info box names the same, something like 'btn_Deliveries' and 'msg_Deliveries', you can easily determine the info box name from the button name that Application.Caller returns...
Sub Message_Toggle()
b = Application.Caller
m = "msg" & Right(b, Len(b) - 3)
If ActiveSheet.Shapes(m).Visible = False Then
ActiveSheet.Shapes(m).Visible = True
ActiveSheet.Shapes(b).Fill.ForeColor.RGB = RGB(255, 255, 0)
Else
ActiveSheet.Shapes(m).Visible = False
ActiveSheet.Shapes(b).Fill.ForeColor.RGB = RGB(255, 255, 255)
End If
End Sub
Obviously for good practice there are a few lines of code that could be added to declare variables and perhaps set the ActiveSheet as an object to get the intellisense.
as others have mentioned, this does not work in 365, get the message Object doesn't support this property or method on this line = If .Shapes(“Info_Button_Deliveries”).Fill.ForeColor.RGB = RGB(255,255,255) Then
That was hot
Sir you please recommend an website or a page or a channel to learn Macros from scratch wherein a person can learn Macro who doesn't have an engeerning or a coding background
Hi Sir,
I assume you are you are looking for a free but also professional resource to learn that?!
There is one huge course on Skillshare.com that I can recommend if you want to learn VBA and Macros from scratch: It's called "Microsoft Excel Essentials: Level 3 - VBA Programming".
You can take that course for free for 2 months via this link ► skillshare.eqcm.net/c/2018572/608192/4650
Hope that helps 😊
My info button never goes back to white and the box never hides. I have checked the code 50 times and it looks fine. Any ideas?
Same here
Is the code different for windows pc? I’m getting an error. Can’t get option 1 to test.
It says compilation error, awaiting: line number or instruction :(
I was able to make a macro just like the first one but I don't know how am I supposed to save it so other people can use it too when they open the document, I'm not even sure if you can do that, anyone that can help with this?
ouisibeul
Jesus is it that hard to say "V" omg !