条形图不显示在Excel VBA用户窗体上

Private Sub Form_Load()
    Dim excelApp As Object
    Dim excelWorkbook As Object
    Dim excelWorksheet As Object
    Dim chartObject As Object

    ' 创建Excel应用对象
    Set excelApp = CreateObject("Excel.Application")
    excelApp.Visible = False ' 设置Excel应用不可见

    ' 打开Excel工作簿
    Set excelWorkbook = excelApp.Workbooks.Open("C:\path\to\your\workbook.xlsx")

    ' 获取工作簿中的工作表
    Set excelWorksheet = excelWorkbook.Worksheets("Sheet1")

    ' 创建条形图
    Set chartObject = excelWorksheet.Shapes.AddChart2(251, xlColumnClustered).Chart

    ' 设置条形图的位置和大小
    chartObject.Parent.Left = Me.PictureBox1.Left
    chartObject.Parent.Top = Me.PictureBox1.Top
    chartObject.Parent.Width = Me.PictureBox1.Width
    chartObject.Parent.Height = Me.PictureBox1.Height

    ' 将条形图复制到剪贴板
    chartObject.ChartArea.Copy

    ' 在PictureBox控件上粘贴条形图
    Me.PictureBox1.Picture = Clipboard.GetData(vbCFBitmap)

    ' 关闭Excel应用
    excelWorkbook.Close SaveChanges:=False
    excelApp.Quit

    ' 释放对象
    Set chartObject = Nothing
    Set excelWorksheet = Nothing
    Set excelWorkbook = Nothing
    Set excelApp = Nothing
End Sub