'Callback for CustomButton1 onAction
Sub bdored(control As IRibbonControl)
MsgBox "BDO RED - R237, G26, B59"
End Sub
'Callback for CustomButton2 onAction
Sub bdocoral(control As IRibbonControl)
MsgBox "BDO CORAL - R246, G161, B168"
End Sub
'Callback for CustomButton3 onAction
Sub bdoburgundy(control As IRibbonControl)
MsgBox "BDO BURGUNDY - R152, G0, B46"
End Sub
'Callback for CustomButton4 onAction
Sub bdoteal(control As IRibbonControl)
MsgBox "BDO TEAL - R46, G176, B164"
End Sub
'Callback for CustomButton5 onAction
Sub bdoteal40(control As IRibbonControl)
MsgBox "BDO TEAL 40% - R46, G176, B164"
End Sub
'Callback for CustomButton6 onAction
Sub bdogrey(control As IRibbonControl)
MsgBox "BDO GREY - R120, G104, B96"
End Sub
'Callback for CustomButton7 onAction
Sub bdogrey40(control As IRibbonControl)
MsgBox "BDO GREY 40% - R120, G104, B96"
End Sub
'Callback for CustomButton8 onAction
Sub bdoyellow(control As IRibbonControl)
MsgBox "BDO YELLOW - R255, G227, B156"
End Sub
'Callback for CustomButton9 onAction
Sub bdoyellow40(control As IRibbonControl)
MsgBox "BDO YELLOW 40% - R255, G227, B156"
End Sub
'Callback for CustomButton10 onAction
Sub bdoblue(control As IRibbonControl)
MsgBox "BDO BLUE - R34, G64, B154"
End Sub
'Callback for CustomButton11 onAction
Sub bdoblue40(control As IRibbonControl)
MsgBox "BDO RED - R34, G64, B154"
End Sub
'Callback for Gallery1 onAction
Sub ClickImage(control As IRibbonControl, id As String, index As Integer)
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="path to my image files\array_of_tools.png", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=100, Top:=100).Select
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="path to my image files\caliper.png", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=100, Top:=100).Select
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="path to my image files\chain_with_red_link.png", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=100, Top:=100).Select
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="path to my image files\china_wall.png", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=100, Top:=100).Select
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="path to my image files\circle_of_arms.png", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=100, Top:=100).Select
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="path to my image files\coins.png", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=100, Top:=100).Select
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="path to my image files\crossing_escalators.png", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=100, Top:=100).Select
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="path to my image files\elephants.png", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=100, Top:=100).Select
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="path to my image files\glass_roofed_building.png", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=100, Top:=100).Select
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="path to my image files\globe_with_yellow_helmet.png", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=100, Top:=100).Select
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="path to my image files\globes.png", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=100, Top:=100).Select
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="path to my image files\guages.png", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=100, Top:=100).Select
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="path to my image files\jumping_helmets.png", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=100, Top:=100).Select
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="path to my image files\laptop_and_newspaper.png", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=100, Top:=100).Select
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="path to my image files\laptop_with_USB_cable.png", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=100, Top:=100).Select
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="path to my image files\laying_paving_stones.png", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=100, Top:=100).Select
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="path to my image files\lion_door_knockers.png", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=100, Top:=100).Select
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="path to my image files\man_and_laptop.png", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=100, Top:=100).Select
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="path to my image files\man_and_woman_discussing.png", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=100, Top:=100).Select
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="path to my image files\man_and_woman_reflected_laptops.png", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=100, Top:=100).Select
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="path to my image files\man_measuring.png", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=100, Top:=100).Select
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="path to my image files\mountains_and_chinese_roof.png", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=100, Top:=100).Select
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="path to my image files\parasols_at_the_beach.png", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=100, Top:=100).Select
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="path to my image files\passing_the_baton.png", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=100, Top:=100).Select
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="path to my image files\people_looking_at_the_sky.png", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=100, Top:=100).Select
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="path to my image files\pulling_two_suitcases.png", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=100, Top:=100).Select
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="path to my image files\red_fans.png", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=100, Top:=100).Select
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="path to my image files\red_reflected_globe.png", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=100, Top:=100).Select
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="path to my image files\red_tower_of_people.png", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=100, Top:=100).Select
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="path to my image files\seven_suited_persons.png", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=100, Top:=100).Select
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="path to my image files\shirts_and_ties.png", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=100, Top:=100).Select
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="path to my image files\stepping_stones.png", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=100, Top:=100).Select
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="path to my image files\suit_with_tools_in_pocket.png", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=100, Top:=100).Select
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="path to my image files\suited_man_with_toolbox.png", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=100, Top:=100).Select
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="path to my image files\tennis_balls.png", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=100, Top:=100).Select
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="path to my image files\three_handheld_globes.png", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=100, Top:=100).Select
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="path to my image files\three_mobile_phones_and_subway.png", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=100, Top:=100).Select
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="path to my image files\three_people_and_globe.png", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=100, Top:=100).Select
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="path to my image files\two_birds_and_skyscrapers.png", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=100, Top:=100).Select
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="path to my image files\two_business_men.png", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=100, Top:=100).Select
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="path to my image files\two_flying_swans.png", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=100, Top:=100).Select
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="path to my image files\two_men_and_plans.png", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=100, Top:=100).Select
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="path to my image files\two_men_reflected.png", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=100, Top:=100).Select
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="path to my image files\two_microscopes.png", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=100, Top:=100).Select
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="path to my image files\two_red_umbrellas.png", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=100, Top:=100).Select
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="path to my image files\two_smiling_men_and_skyscraper.png", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=100, Top:=100).Select
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="path to my image files\two_suited_men_looking.png", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=100, Top:=100).Select
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="path to my image files\two_swimming_swans.png", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=100, Top:=100).Select
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="path to my image files\two_women_and_chairs.png", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=100, Top:=100).Select
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="path to my image files\typing_on_laptop_x2.png", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=100, Top:=100).Select
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="path to my image files\violins.png", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=100, Top:=100).Select
End Sub