VBA para Inserção de um gráfico em um slide ppt

Question

A seguir é um procedimento que eu uso para gráficos puxar para um ppt de planilhas Excel. No entanto, uma coisa que eu não consigo entender é como inserir a imagem para o "objeto" em vez de apenas colá-lo em th tela. (Isto é, se eu um ppLayoutFourObjects, e enviado quatros gráficos para esta corrediça, antes de se adicionar uma outra, eu preciso saber como colar o gráfico para cada rectângulo designado mostrado a partir da selecção Objectos 4). Eu sei que o primeiro parece ser sempre retângulo cinco, eu não posso obter o direito de código. Por favor ajude. Isso é tudo o Office 2003.

sub xls2ppt()
'I use this to pull charts into ppt from excel   
Dim xlApp As Object
Dim xlWrkBook As Object
Dim lCurrSlide As Long
Set xlApp = CreateObject("Excel.Application")
' Open the Excel workbook
Set xlWrkBook = xlApp.Workbooks.Open("X:\Users\Admin\Desktop\Budget Overview.xls")
' Copy picture of the 1st chart object onto the clipboard
xlWrkBook.Worksheets(2).ChartObjects(1).CopyPicture
' Get the slide number
lCurrSlide = ActiveWindow.Selection.SlideRange.SlideNumber
' Paste the picture onto the PowerPoint slide.
ActivePresentation.Slides(lCurrSlide).Shapes.Paste
' Close the open workbook without saving changes
xlWrkBook.Close (False)
xlApp.Quit
Set xlApp = Nothing
Set xlWrkBook = Nothing
End Sub

Obrigado por qualquer ajuda. VBA para o PowerPoint é o meu mais fraco, mas estou realmente precisando para buscá-lo para o trabalho! Obrigado rapazes!

Answer 1

AFAIK você não pode colar um gráfico "em um objeto" em PowerPoint, mesmo através da interface do usuário. No Word, você pode colar em uma caixa de texto ou em uma célula da tabela, mas não em PowerPoint.

O que você precisa fazer em vez disso é a posição das 4 cartas coladas de modo que eles são o tamanho e posição certa - e isso é bastante fácil de fazer ...

Set oSlide = ActivePresentation.Slides(lCurrSlide)
Set oShape = oSlide.Shapes.Paste
oShape.Top = 10
oShape.Left = 10
oShape.Width = 100
oShape.Height = 100