VBA如何在PPT中制作列表框

注意：仅在PPT放映时可使用

1.  打开PPT开发工具，文件--选项

2.将图片复制到PPT

选中所有的图片，在图片工具--格式，先左对齐，再垂直对齐

效果如下，图片最好选择差不多大小

3.开始制作列表框

双击或者查看代码进入VBA页面

4.为列表框写代码

Private Sub ListBox1_Click()
    ListBox1.AddItem ("季度")
    ListBox1.AddItem ("月份")
    ListBox1.AddItem ("年份")

End Sub
Private Sub ListBox1_Change()

If ListBox1.Value = "月份" Then
    ActivePresentation.Slides(1).Shapes(1).Visible = msoCTrue
    ActivePresentation.Slides(1).Shapes(2).Visible = msoFalse
    ActivePresentation.Slides(1).Shapes(3).Visible = msoFalse



ElseIf ListBox1.Value = "季度" Then
    ActivePresentation.Slides(1).Shapes(2).Visible = msoCTrue
    ActivePresentation.Slides(1).Shapes(1).Visible = msoFalse
    ActivePresentation.Slides(1).Shapes(3).Visible = msoFalse

    
ElseIf ListBox1.Value = "年份" Then
    ActivePresentation.Slides(1).Shapes(3).Visible = msoCTrue
    ActivePresentation.Slides(1).Shapes(2).Visible = msoFalse
    ActivePresentation.Slides(1).Shapes(1).Visible = msoFalse

Else
End If

End Sub

效果如下：

点击右边列表框，分别跳出不同步的图片（再PPT放映时可选则列表框信息）