''This macro wil switch between your current ColorScheme to a white background color for use in presentations and back when clicked again.

''Macro created by Stefaan Boel
''Copyright by Inventor Wizard (http://www.inventorwizard.be)
''Use this macro at your own risk.
''You may only copy/modify this or part of the code if you leave this header!

Public Sub ChangeColor()

If ThisApplication.ColorSchemes.BackgroundType = 52737 Then
ThisApplication.ColorSchemes.BackgroundType = GetSetting("InventorColorScheme", "ChangeColor", "BackgroundType")
ThisApplication.ColorSchemes.Item("" & GetSetting("InventorColorScheme", "ChangeColor", "BackgroundItem") & "").Activate
Else
SaveSetting "InventorColorScheme", "ChangeColor", "BackgroundType", ThisApplication.ColorSchemes.BackgroundType
SaveSetting "InventorColorScheme", "ChangeColor", "BackgroundItem", ThisApplication.ActiveColorScheme.Name
ThisApplication.ColorSchemes.BackgroundType = kOneColorBackgroundType
ThisApplication.ColorSchemes.Item(7).Activate
End If

End Sub