22、Excel VBA 用户界面与对话框技巧

Excel VBA用户界面定制技巧

最新推荐文章于 2025-11-29 00:45:25 发布

life6

最新推荐文章于 2025-11-29 00:45:25 发布

阅读量7

点赞数

CC 4.0 BY-SA版权

分类专栏： Excel VBA入门魔法文章标签： Excel VBA UserForm Ribbon 自定义

本文链接：https://blog.youkuaiyun.com/life6/article/details/155367061

Excel VBA入门魔法专栏收录该内容

26 篇文章 ¥499.90

订阅专栏¥69.90

会员秒杀 ¥9.9 重磅福利

超级会员免费看

Excel VBA 用户界面与对话框技巧

1. UserForm 技术与技巧

在一个示例中，有三张图表位于名为“Charts”的工作表中。通过“Previous”和“Next”按钮来确定显示哪张图表，图表编号存储在公共变量“ChartNum”中，所有程序都可访问该变量。以下是实现此功能的 UpdateChart 过程：

Private Sub UpdateChart()
    Dim CurrentChart As Chart
    Dim Fname As String

    Set CurrentChart = _
      Sheets("Charts").ChartObjects(ChartNum).Chart
    CurrentChart.Parent.Width = 300
    CurrentChart.Parent.Height = 150
    ' Save chart as GIF
    Fname = ThisWorkbook.Path & "\temp.gif"
    CurrentChart.Export FileName:=Fname, FilterName:="GIF"
    ' Show the chart
    Image1.Picture = LoadPicture(Fname)
End Sub

此过程为保存的图表确定一个名称，然后使用 Export 方法导出 GIF 文件，最后使用 VBA 的 LoadPicture 函数指定 Ima