Как добавить изображение в слайд PowerPoint из excel [Solved]

Итак, я создал макрос, который сохраняет некоторые диаграммы из электронной таблицы Excel в виде изображений (как часть более крупной процедуры) и нужен некоторый код для вставки этих фотографии, по одному на слайд, в слайд-шоу.Как добавить изображение в слайд PowerPoint из excel [Solved]

В настоящее время я успешно открыл презентацию PowerPoint с 4-мя чистыми слайдами и даже не смог успешно импортировать 1 изображение.

Я использую такие методы, как shape.addpicture ("C: \ Users \ restofpathname"), но не удалось заставить их работать

Может кто-нибудь помочь? Спасибо, Btubnfj

EDIT: решаемые с помощью следующего кода:

Dim applPP As PowerPoint.Application, prsntPP As PowerPoint.Presentation, TitlePage As PowerPoint.Slide 

Set applPP = New PowerPoint.Application 
applPP.Visible = True 
Set prsntPP = applPP.Presentations.Add 
Set TitlePage = prsntPP.Slides.Add(Index:=1, Layout:=ppLayoutTitle) 
prsntPP.SaveAs ("C:\Users\...") 

    Dim oSlide As PowerPoint.Slide 
    Dim oPicture As PowerPoint.Shape 

    Set oSlide = prsntPP.Slides(1) 

    Set oPicture = oSlide.Shapes.AddPicture("C:\Users\Public\Pictures\Sample Pictures\Penguins.jpg", _ 
     msoFalse, msoTrue, 1, 2, 3, 4) 

    oPicture.ScaleHeight 0.9, msoTrue 
    oPicture.ScaleWidth 0.9, msoTrue 

    With prsntPP.PageSetup 
     oPicture.Left = (.SlideWidth \ 2) - (oPicture.Width \ 2) 
     oPicture.Top = (.SlideHeight \ 2) - (oPicture.Height \ 2) 
    End With

источник

2015-07-27 Btubnfj

Сохранить имя файла из Excel затем https://support.microsoft.com/en-us/kb/168649 в Powerpoint? –

Вы проверили [эту тему] (http://stackoverflow.com/questions/23049917/how-to-add-pictures-to-powerpoint-presentation-picture-placeholder?rq=1) – Spidey

Спасибо вам за ответ
@HuangChen - я попал в этот код здесь 'Dim oSlide слайд Dim oPicture Как Форма Dim applPP Как PowerPoint.Application Dim prsntpp Как PowerPoint.Presentation " Изменить слайд позиции индекса на первый слайд Set applPP = New PowerPoint.Application applPP.Visible = True Установить prsntpp = applPP.Presentations.Add prsnpp.Select ActiveWindow.View.GotoSlide 1' И я получаю сообщение об ошибке «Compile Error, Invalid Qualifier», с выделенным «View» Не знаете, как это сделать? – Btubnfj

Вот код, который позволил мне поставить картину в POWERPOINT, от первенствует. Приведенный ниже код работает, и this link также полезно

Dim applPP As PowerPoint.Application, prsntPP As PowerPoint.Presentation, TitlePage As PowerPoint.Slide 

    Set applPP = New PowerPoint.Application 
    applPP.Visible = True 
    Set prsntPP = applPP.Presentations.Add 
    Set TitlePage = prsntPP.Slides.Add(Index:=1, Layout:=ppLayoutTitle) 
    prsntPP.SaveAs ("C:\Users\...") 

     Dim oSlide As PowerPoint.Slide 
     Dim oPicture As PowerPoint.Shape 

     Set oSlide = prsntPP.Slides(1) 

     Set oPicture = oSlide.Shapes.AddPicture("C:\Users\Public\Pictures\Sample Pictures\Penguins.jpg", _ 
      msoFalse, msoTrue, 1, 2, 3, 4) 

     oPicture.ScaleHeight 0.9, msoTrue 
     oPicture.ScaleWidth 0.9, msoTrue 

     With prsntPP.PageSetup 
      oPicture.Left = (.SlideWidth \ 2) - (oPicture.Width \ 2) 
      oPicture.Top = (.SlideHeight \ 2) - (oPicture.Height \ 2) 
     End With

источник

2015-07-28 07:06:06 Btubnfj

Как добавить изображение в слайд PowerPoint из excel [Solved]

ответ

Смежные вопросы