Вставка пустого изображения (растрового изображения) только для 1 слайда, работающего должным образом при вставке данных из Excel в Power Point с использованием VBA - PullRequest
Новая
       6

Вставка пустого изображения (растрового изображения) только для 1 слайда, работающего должным образом при вставке данных из Excel в Power Point с использованием VBA

0 голосов
/ 09 мая 2018

Я пытаюсь скопировать данные вставки из Excel в слайд PowerPoint.

Данные копируются в растровом формате и вставляются в слайды. Это повторяющийся процесс и помещается в цикл.

Когда я отлаживаюсь и делаю все работает нормально. Но когда я выполняю полный прогон в любом из слайдов, вставляется пустое изображение. Этот слайд меняется в каждом прогоне.

Во время запуска изображение будет помечено красным знаком «x» и сообщением «Это изображение не может быть отображено сейчас». Но как только прогон будет завершен, и если вы откроете 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
...