嵌入图表怎样在独立窗口中显示

lvhonchen

按照下面的方法无法在独立窗口中显示（样式见图片），请高手指教！

Sub 创建嵌入图表()
    Dim cht As ChartObject

    On Error Resume Next
    ActiveSheet.ChartObjects.Delete
    On Error GoTo 0

    Set cht = ActiveSheet.ChartObjects.Add(50, 50, 400, 250)

    With cht
        .Name = "Results"
        With .Chart
            .SetSourceData Source:=Sheets("成绩表").Range("B2:E7"), PlotBy:=xlRows
            .ChartType = xlColumnClustered

            .SetElement msoElementChartTitleCenteredOverlay
            .ChartTitle.Text = "成绩分析图"
        End With
    End With

    cht.Chart.ShowWindow = True

    With ActiveWindow
        .WindowState = xlNormal
        .Top = 50
        .Left = 50
        .Width = 500
        .Height = 350
        .Caption = ThisWorkbook.Name
    End With
End Sub

liucqa

简单的办法是把图表导出成本地图片，再加载到窗体

龙城飞将III

参考yuanzhuping老师的原代码：http://club.excelhome.net/forum. ... 683&pid=2590583

lvhonchen

龙城飞将III 发表于 2016-2-15 13:53
参考yuanzhuping老师的原代码：http://club.excelhome.net/forum.php?mod=redirect&goto=findpost&ptid=395 ...

不行啊，我用的Excel2013，chart.后自动弹出的框框里没有showwindow属性

龙城飞将III

lvhonchen 发表于 2016-2-15 14:07
不行啊，我用的Excel2013，chart.后自动弹出的框框里没有showwindow属性

那就按2楼liucqa学导的提示，参考这个吧：http://club.excelhome.net/forum. ... =395683&pid=2783884

lvhonchen

龙城飞将III 发表于 2016-2-15 14:28
那就按2楼liucqa学导的提示，参考这个吧：http://club.excelhome.net/forum. ... =395683&pid=2783884

好吧，谢谢

lvhonchen

liucqa 发表于 2016-2-15 13:46
简单的办法是把图表导出成本地图片，再加载到窗体

谢谢！ 用到这个，才刚学习

黎颇

能不能显示多个图表啊？