For...Next 使用 Worksheets(i).ChartObjects 失败。有什么建议么？

大佬教程收集整理的这篇文章主要介绍了For...Next 使用 Worksheets(i).ChartObjects 失败。有什么建议么？，大佬教程大佬觉得挺不错的，现在分享给大家，也给大家做个参考。

如何解决For...Next 使用 Worksheets(i).ChartObjects 失败。有什么建议么？？

开发过程中遇到For...Next 使用 Worksheets(i).ChartObjects 失败。有什么建议么？的问题如何解决？下面主要结合日常开发的经验，给出你关于For...Next 使用 Worksheets(i).ChartObjects 失败。有什么建议么？的解决方法建议，希望对你解决For...Next 使用 Worksheets(i).ChartObjects 失败。有什么建议么？有所启发或帮助；

Sub ChartExporter()

Dim PowerPointApp As Object
Dim myPresentation As Object
Dim mySlIDe As Object
Dim myShape As Object

Dim i As Integer
  
    If PowerPointApp Is nothing Then _
    Set PowerPointApp = CreateObject(class:="PowerPoint.Application")
    
    On Error GoTo 0
    
    Application.Screen@R_607_9531@ing = false
    
    Set myPresentation = PowerPointApp.presentations.Add
    
For i = 1 To ThisWorkbook.Worksheets.Count
    
    Set mySlIDe = myPresentation.SlIDes.Add(1,11) '11 = ppLayouttitleOnly
    
    Worksheets(i).ChartObjects.SELEct 'THIS IS HIGHliGHTED 
    
    SELEction.copy
    
    mySlIDe.Shapes.Paste
    
    Set myShape = mySlIDe.Shapes(mySlIDe.Shapes.Count)
    
    myShape.left = 200
    myShape.top = 200
    
    PowerPointApp.Visible = True
    PowerPointApp.Activate
    
    Application.Cutcopymode = false

Next


End Sub

VBA 调试器指向包含 Worksheets(i).Chartobjects.SELEct 的行被突出显示。但是，activesheet 似乎确实有效。

我的逻辑是，如果 i=1 则选择图表对象，并将它们复制到新插入的幻灯片中，然后使用工作表（2）等再次插入新幻灯片...

基本上，我试图将每个工作表中的每个图表复制并粘贴到每张新幻灯片中。

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

大佬总结

以上是大佬教程为你收集整理的For...Next 使用 Worksheets(i).ChartObjects 失败。有什么建议么？全部内容，希望文章能够帮你解决For...Next 使用 Worksheets(i).ChartObjects 失败。有什么建议么？所遇到的程序开发问题。

如果觉得大佬教程网站内容还不错，欢迎将大佬教程推荐给程序员好友。

本图文内容来源于网友网络收集整理提供，作为学习参考使用，版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ：384754419，请注明来意。