如何编写Excel VBA代码在用户窗体显示工作表中的3个图表

实现思路 #

• 由于Excel图表无法直接嵌入用户窗体，核心方案是将图表导出为临时图片，再通过用户窗体的Image控件加载显示
• 流程：创建带Image控件的用户窗体 → 导出工作表图表为临时PNG → 加载图片到控件 → 窗体关闭时清理临时文件

具体实现步骤 #

1. 创建用户窗体与控件 #

按Alt+F11打开VBA编辑器，插入用户窗体（Insert → UserForm），在窗体上添加3个Image控件，命名为Image1、Image2、Image3，调整控件大小和布局以适配图表显示。

2. 用户窗体代码 #

双击用户窗体，粘贴以下代码：

Private tempFiles As Collection

Private Sub UserForm_Initialize()
    Dim ws As Worksheet
    Dim cht As ChartObject
    Dim imgCtrl As Control
    Dim tempPath As String
    Dim i As Integer
    
    Set ws = ActiveSheet
    Set tempFiles = New Collection
    
    ' 遍历当前工作表的3个图表（可通过名称定位替换，如ChartObjects("销售图表")）
    For i = 1 To 3
        Set cht = ws.ChartObjects(i)
        tempPath = Environ("TEMP") & "\ChartTemp_" & i & ".png"
        tempFiles.Add tempPath
        
        ' 导出图表为PNG
        cht.Chart.Export Filename:=tempPath, FilterName:="PNG"
        
        ' 加载图片到对应控件
        Set imgCtrl = Me.Controls("Image" & i)
        imgCtrl.Picture = LoadPicture(tempPath)
        ' 可选调整显示模式：fmPictureSizeModeZoom（按比例）/ fmPictureSizeModeStretch（拉伸）
        imgCtrl.PictureSizeMode = fmPictureSizeModeZoom
    Next i
End Sub

Private Sub UserForm_Terminate()
    Dim filePath As Variant
    ' 清理临时文件，忽略删除失败的情况
    On Error Resume Next
    For Each filePath In tempFiles
        If Dir(filePath) <> "" Then Kill filePath
    Next
    On Error GoTo 0
End Sub

3. 启动窗体的代码 #

插入一个标准模块，添加启动代码：

Sub DisplayChartsInForm()
    UserForm1.Show  ' 替换为你的用户窗体实际名称
End Sub

关键说明 #

• 若需指定特定图表而非前3个，可修改ChartObjects(i)为ChartObjects("图表名称")，比如ws.ChartObjects("月度营收图表")
• PictureSizeMode属性可根据需求调整，推荐用fmPictureSizeModeZoom保持图表比例不变
• 临时文件存储在系统临时目录，窗体关闭时自动删除，避免残留垃圾文件

内容的提问来源于stack exchange，提问作者MaKo