Thread: Page.SetTheme Method example VBA?
View Single Post
 
Old 06-13-2018, 07:40 PM
Guessed's Avatar
Guessed Guessed is offline Windows 10 Office 2016
Expert
  
Join Date: Mar 2010
Location: Canberra/Melbourne Australia
Posts: 3,975
Guessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant future
Default
Visio's VBA is a whole lot of confusion. But recording a macro gives you a few clues to get it working
Code:
  Dim aPage As Visio.Page
  For Each aPage In ActiveDocument.Pages
    aPage.SetTheme 35
    aPage.SetThemeVariant 2, 2
  Next aPage
__________________
Andrew Lockton
Chrysalis Design, Melbourne Australia
Reply With Quote