Burger Buttons

Here is the Code to run a Burger Button animation using the Animate() Subroutine which takes 4 Parameters, ShapeItem, Animation, Speed, Colour - add your own Code to the part '' your Code...':

' BurgerButtonExample1
Public Sub BurgerButtonExample1()

    ' prevent multiple clicks
    If IsRunning Then Exit Sub

    ' Animate takes 4 parameters
    ' - the name of the Shape object to animate (required)
    ' - the animation type, Pulse, FadeIn or Heartbeat
    ' - the speed & the Shape colour (all optional)
    Animate ActiveSheet.Shapes("burger_animation"), Pulse

    ' your Code...
    Range("B2").Select

    ' reset
    IsRunning = False

End Sub
                            

You can also use the Paramer Names for the Animate() Subroutine like this:

    Animate ShapeItem:=ActiveSheet.Shapes("ellipse_purple_animation"), _
            Animation:=Pulse, _
            Speed:=0.05, _
            Colour:=RGB(229, 223, 255)
                            

Linking a Macro or VBA Subroutine to a Burger Button is easy. If you have used Protection, then you will need to Unprotect the Worksheet first, otherwise, hover near the Button (the Grouped Shape) and then right-click->Assign Macro... Pick your Macro to link to the Burger Button

The following animations are available, Pulse, FadeIn, Heartbeat and Preloader. Pulse renders the circle as dark as the Shape Colour and then does a lovely Fade out. FadeIn fades the circle from light to dark - this will form the basis of my next Project, Burger Buttons with Popup Menu's. Hearbeat is like the rythmic beating of your heart, well for a second or two anyhow! Preloader spins a broken circle round the Button. All of the animations use my Frame Timer routine to ensure a smooth transition

Here is the Code for each animation - the AnimationType is an Enum of the 4 Values, Pulse, FadeIn, Heartbeat & Preloader which can be accessed via the Intellisense when editing the Code:

    Animate ActiveSheet.Shapes("burger_animation"), Pulse

    Animate ActiveSheet.Shapes("burger_animation"), FadeIn

    Animate ActiveSheet.Shapes("burger_animation"), Heartbeat

    Animate ActiveSheet.Shapes("burger_animation"), Preloader
                            

You can adjust the speed and Colour of the animation via the Animate() Subroutine

Here is the Code to speed up the animation - the default value for the speed Parameter is '0.05'. Test values like '0.08' and '0.1':

    Animate ActiveSheet.Shapes("google_animation"), Pulse, 0.08
                            

The Colour is the Colour of the animation Shape and the Parameter will take a Long value like '16777215', a VBA Colour Code like 'vbGreen' or an RGB Colour Code like 'RGB(229, 223, 255)'

Here is the Code to adjust the Colour

    Animate ActiveSheet.Shapes("ellipse_purple_animation"), Pulse, , RGB(229, 223, 255)
                            

All Burger Buttons consist of 2 Shapes that have been Grouped together to make 1 Button. To view the Shapes you should use the Selection Pane on the Arrange Group of the PICTURE TOOLS Tab on the Ribbon. Select a Button by right-click. Now go and open the Selection Pane - you will see all of the Burger Buttons and their respective grouped Shapes. You will also note, that they all have unique names:

The Grouped Shape is the Button made up of 2 Shapes. It is also where you should link your Macro ie. right-click->Assign Macro... To select the Grouped Shape simply use right-click

The Button Shape is a single Shape that has been Grouped with the Animation Shape. It is where you should add your Icon, Picture or Image that you want to use for the Button Face. To select the Button Shape simply use the Selection Pane on the Arrange Group of the PICTURE TOOLS Tab on the Ribbon. Select a Button by right-click. Now go and open the Selection Pane. Now click on the Shape underneath the Burger Button name that ends in '_button' - that's your Button. Right-click on your Button now that it is selected and choose Format Picture to bring up the Format Picture Pane. Click on the Paint Pot and then expand Fill. Change your Image by selecting File...

The Circle or Animation Shape is a single Shape that has been Grouped with the Button Shape. It is also where you can style the circle if you wish. To select the Animation Shape simply use the Selection Pane on the Arrange Group of the PICTURE TOOLS Tab on the Ribbon. Select a Button by right-click. Now go and open the Selection Pane. Now click on the Shape underneath the Burger Button name that ends in '_animation' - that's your Animation Shape

Before you add the Button, you need to add some Code into your Project or newly Saved Workbook. Copy all of the Code in the 'mdBurgerButtons' Code Module into your own Code Module. You can also drag the Code Module into your own Project using the Project Explorer Window if you prefer. You will be able to delete any Code that is not required later

' Software Name:
' Burger Buttons - Burger Buttons with Animation to Trigger a Macro for Excel by Mark Kubiszyn
'
' © Copyright/Author:
' Mark Kubiszyn. All Rights Reserved
' Website/Follow:
' https://www.kubiszyn.co.uk/
' https://www.facebook.com/Kubiszyn.co.uk/
'
' License:
' This Software is released under an MIT License (MIT)
' https://www.kubiszyn.co.uk/license.html
'
' Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation files
' (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, modify, merge,
' publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software is furnished to do so,
' subject to the following conditions:
'
' THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
' MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR
' ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
' SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE
'
' Changelog:
' 01.11.2018 (Version 1) released

' force explicit variable declaration
Option Explicit

' global animation type
Public Enum AnimationType
    [_First]
    Pulse = 1
    FadeIn = 2
    Heartbeat = 3
    [_Last]
End Enum

' used to prevent repeated animation & Macro's from being triggered by multiple clicking
Private IsRunning As Boolean

...rest of the Code is omitted...
                           

Now to add a Burger Button to your own Project or Workbook, select a Button in the BurgerButtons.xlsm File by right-click and Copy the Button to the Clipboard. Paste the Button into your own Project or a new Workbook that has been Saved. Right-click the Button that you just Pasted in and choose Assign Macro... Pick the Macro that corresponds to the Example Button (you can amend later). Press the Button to see the Burger Button in action

Before you add the Hyperlink ToolTip Button, you need to add some Code into your Project or newly Saved Workbook. Copy all of the Code in the 'mdBurgerButtons' Code Module into your own Code Module. You can also drag the Code Module into your own Project using the Project Explorer Window if you prefer. You will be able to delete any Code that is not required later

' Software Name:
' Burger Buttons - Burger Buttons with Animation to Trigger a Macro for Excel by Mark Kubiszyn
'
' © Copyright/Author:
' Mark Kubiszyn. All Rights Reserved
' Website/Follow:
' https://www.kubiszyn.co.uk/
' https://www.facebook.com/Kubiszyn.co.uk/
'
' License:
' This Software is released under an MIT License (MIT)
' https://www.kubiszyn.co.uk/license.html
'
' Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation files
' (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, modify, merge,
' publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software is furnished to do so,
' subject to the following conditions:
'
' THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
' MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR
' ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
' SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE
'
' Changelog:
' 01.11.2018 (Version 1) released

' force explicit variable declaration
Option Explicit

' global animation type
Public Enum AnimationType
    [_First]
    Pulse = 1
    FadeIn = 2
    Heartbeat = 3
    [_Last]
End Enum

' used to prevent repeated animation & Macro's from being triggered by multiple clicking
Private IsRunning As Boolean

...rest of the Code is omitted...
                           

Now to add a Burger Button to your own Project or Workbook, select the 'Burger5' Hyperlink Button in the BurgerButtons.xlsm File by right-click and Copy the Button to the Clipboard. Paste the Button into your own Project or a new Workbook that has been Saved. Then you need to add the extra Code to support the Commandbar_OnUpdate() Subroutine that captures a Mouse Click on a Shape and allows you to then run Code whilst letting you use a Hyperlink as a ToolTip

Go into the "ThisWorkbook" Code Module and Copy this Code and Paste it into the "ThisWorkbook" Code Module for the Workbook where you Copied the Hyperlink Button earlier. That's it, close and reopen the File. Test the Button

There is no possibility of changing the Burger Icon Colour in this Version. I may consider this in any future builds. Extra Code is required in the "ThisWorkbook" Code Module in order to use a ToolTip using the Commandbar_OnUpdate() Subroutine

Burger Buttons Workbook

This is a Screen Shot of the Burger Buttons Workbook with examples available for Purchase

Burger Buttons

This is a Screen Shot of the individual Burger Buttons. I have just pressed the Google Icon and the animation is underway

Videos of the Burger Buttons in action

Here, I run through the examples for the Burger Buttons including the Hyperlink ToolTip. There are 4 animations in total (3 are shown in this video) with the last example demonstrating changing the Colour of the animation

Here, I run through the examples for the Burger Buttons in Version 2.1 including a Button to Hyperlink to another Worksheet, a Button that opens a URL to the Kubiszyn.co.uk Facebook Page and the 4th Preloader animation