如何删除MS Visio页面上的背景

Question

如何删除MS Visio页面上的背景？

我一直在寻找一种创建简单白色背景的方法，但没有遇到过有效的解决方案。最直接的.Background参数似乎与我可以在设计功能区中手动设置的背景相对应。

Dim i As Integer
With objVisio.ActiveDocument
    For i = 1 To .Pages.Count
        .Pages(i).ThemeColors = 2 'Blue colors
        .Pages(i).ThemeEffects = 2
        .Pages(i).Background = False
    Next i
End With

Answer 1

您可以使用BackPage属性。例如：

.Pages(i).BackPage = ""

Page.Background是一个告诉您页面是否是背景页面的属性。