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

How to remove the background on a MS Visio Page

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

我一直在寻找一种创建简单的白色背景的方法,但还没有找到可行的解决方案。最直接的.Background参数似乎与我可以在Design Ribbon中手动设置的背景不对应。

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

可以使用BackPage属性。例如:

.Pages(i).BackPage = ""

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