VBA 将 msoThemeColor 存储在变量中

在VBA编程中，经常会遇到需要将msoThemeColor存储在变量中的情况。msoThemeColor是Microsoft Office中的一个枚举类型，用于表示主题颜色。通过将msoThemeColor存储在变量中，我们可以方便地在代码中引用和操作这些颜色。

vba
Sub AddButtonWithThemeColor()
    Dim btn As Button
    Dim themeColor As msoThemeColor
    
    ' 将主题颜色的第一种存储在变量中
    themeColor = msoThemeColorAccent1
    
    ' 在工作表上添加一个按钮
    Set btn = ActiveSheet.Buttons.Add(10, 10, 100, 30)
    
    ' 将按钮的背景颜色设置为主题颜色的第一种
    btn.BackColor = themeColor
End Sub

vba
Sub ApplyThemeColorToTitle()
    Dim pptApp As PowerPoint.Application
    Dim pptPres As PowerPoint.Presentation
    Dim pptSlide As PowerPoint.Slide
    Dim titleShape As PowerPoint.Shape
    Dim themeColor As msoThemeColor
    
    ' 打开 PowerPoint 应用程序
    Set pptApp = New PowerPoint.Application
    pptApp.Visible = True
    
    ' 打开演示文稿
    Set pptPres = pptApp.Presentations.Open("C:\Presentation.pptx")
    
    ' 将主题颜色的第一种存储在变量中
    themeColor = msoThemeColorAccent1
    
    ' 获取第一张幻灯片
    Set pptSlide = pptPres.Slides(1)
    
    ' 获取第一张幻灯片中的标题
    Set titleShape = pptSlide.Shapes.Title
    
    ' 将标题的字体颜色设置为主题颜色的第一种
    titleShape.TextFrame.TextRange.Font.Color.ObjectThemeColor = themeColor
    
    ' 保存并关闭演示文稿
    pptPres.Save
    pptPres.Close
    
    ' 退出 PowerPoint 应用程序
    pptApp.Quit
End Sub