У меня есть макрос Powerpoint 2010, чтобы вставить конкретное изображение в фиксированное место на активном слайде.Изображение, добавленное через VBA (Powerpoint), получает вставку в placeholder
Dim oSlide As Slide
Dim oPicture As Shape
' Set oSlide to the active slide.
Set oSlide = Application.ActiveWindow.View.Slide
' Insert Image to Footer
Set oPicture = oSlide.Shapes.AddPicture("PathToFile.png", _
msoFalse, msoTrue, 630, 390, 15, 15)
' Move the picture to the center of the slide. Select it.
With ActivePresentation.PageSetup
oPicture.Select
oPicture.Name = "Dokumentverknüpfung"
End With
Этот код отлично работает, если на слайде нет неиспользуемого заполнителя. Если есть местозаполнитель, изображение автоматически добавляется в этот заполнитель.
Есть ли способ рассказать сценарию, чтобы избежать заполнителей и просто принять данные координаты?
Спасибо, Jens
Вау, спасибо за быстрый ответ! Это сделало это, теперь макрос работает так, как должен :-) – Schmoozer
Добро пожаловать, Дженс. Рад помочь и рад, что это сработало для вас. –