How to change background color?

[Anonymous]

Anybody knows how to change the background color for my model to a solid white color? I can only see fancy backgrounds and this is not what I need....

[robmatthews]

I use the following little kludge to switch back and forth from my preferred scheme ("Millenium") and "Presentation" for printing screen shots.

Just call SwapColorScheme. This might not be what you're after, but you might be able to get something from it...

Public Sub SwapColorScheme()
If Len(SchemeName) < 1 And ThisApplication.ActiveColorScheme.Name = "Presentation" Then
    SearchingForScheme = True
End If
If SearchingForScheme = True Then
    Call NextScheme
    Exit Sub
End If
If ThisApplication.ActiveColorScheme.Name <> "Presentation" Then
    SchemeName = ThisApplication.ActiveColorScheme.Name
    ThisApplication.ColorSchemes.Item("Presentation").Activate
Else
    ThisApplication.ColorSchemes.Item(SchemeName).Activate
End If
End Sub

Public Sub NextScheme()
Dim Counter As Integer
Dim CurrentScheme As String
CurrentScheme = ThisApplication.ActiveColorScheme.Name
Counter = 1
Do While Counter < ThisApplication.ColorSchemes.count
    'If CurrentScheme = ThisApplication.ColorSchemes.Item(Counter).Name Then
        ThisApplication.ColorSchemes.Item(Counter + 1).Activate
        If MsgBox("Do you like this scheme?", vbYesNo) = vbYes Then
            SearchingForScheme = False
            Exit Do
        End If
    'End If
    Counter = Counter + 1
Loop
End Sub