Question

我正在尝试将粘贴数据从excel复制到powerpoint幻灯片。

数据以位图格式复制并粘贴到幻灯片中。这是一个重复的过程，并且循环。

当我调试并做一切正常。但是当我在任何一张幻灯片中执行完整的运行时，空白图像会被粘贴。这张幻灯片在每次运行时都会有所不同。

在运行过程中，图像会显示红色的＆＃39; x＆＃39;标记和消息说＆＃39;此图像现在无法显示＆＃39;。但是一旦完成运行并且如果你打开ppt，该幻灯片就会有一张空白的图片。

'Copy-Paste the data to PPT Slide
         Workbooks("Statistics").Worksheets("Sheet3").UsedRange.CopyPicture_Appearance:=xlScreen, Format:=xlBitmap                      

                    Set PPSlide = PPFile.Slides(PPFile.Slides.Count)
                    PPSlide.Select
                    PPSlide.Shapes.Paste
                    Set myshape = PPSlide.Shapes(PPSlide.Shapes.Count)


                    Application.CutCopyMode = False

                    'Set position
                    myshape.Left = 40
                    myshape.Top = 90
                    myshape.Width = 700

在使用VBA将数据从Excel粘贴到电源点时，仅为1张幻灯片保留正常工作时粘贴空白图片（位图）

0 个答案: