Выровняйте картинки на Powerpoint - PullRequest
Новая
       13

Выровняйте картинки на Powerpoint

0 голосов
/ 17 февраля 2020

В настоящее время я создаю макрос, который берет файл Excel и помещает его содержимое в PowerPoint. У меня проблемы с выравниванием изображения, которое я только что скопировал и вставил из Excel в PowerPoint. Ниже приведен код, который я использую для вставки изображения и постоянно получаю сообщение об ошибке «Элемент с указанным именем не найден». Мне интересно, если это потому, что макрос запускается из Excel, а не PowerPoint? 

     Sheets("Bay du Nord").Range("E3:P9").CopyPicture _
Appearance:=xlScreen, Format:=xlPicture

Slide2.Select
Slide2.Shapes.Paste.Name = "SamplePic"



Set Shp1 = ActiveSheet.Shapes("Textbox 13")
Set shp2 = ActiveSheet.Shapes("SamplePic")

shp2.Top = Shp1.Top

1 Ответ

1 голос
/ 17 февраля 2020

Я предполагаю, что «TextBox 3» находится на слайде, а не на рабочем листе, и вы хотите выровнять вставленную форму с «TextBox 3» на слайде. Если это так, попробуйте следующее: 

Sheets("Bay du Nord").Range("E3:P9").CopyPicture _
    Appearance:=xlScreen, Format:=xlPicture

Set shp1 = Slide2.Shapes("TextBox 3")

With Slide2
    .Shapes.Paste.Name = "SamplePic"
    With .Shapes(.Shapes.Count)
        .Top = shp1.Top
    End With
End With
...