Copiare grafici da foglio excel a presentazione power point

Question

Salve, sul mio file chiamato "riepilogo.xlsm" ho un foglio excel chiamato "grafici" che contiene 6 istogrammi che mensilmente vengono aggiornati, questi grafici dovrei copiarli nel file "Esposizione.pptm" di powerpoint. In sostanza l'istruzione dovrebbe essere: apri riepilogo.xlsm, seleziona il foglio grafici, seleziona grafico1 copia apri Esposizione.pptm vai sulla seconda slide seleziona il contenuto elimina (per eliminare il grafico precedente) copia il grafico1, torno su xlsm foglio grafici seleziona grafico2 copia vai su pptm slide 3 elimina e copia grafico2 sino al 6° grafico. Salva e chiudi powerpoint lasciando aperto il file excel. Come posso realizzare questa istruzione? Ho provato con le mie scarse conoscienze ma non sono riuscito.

Grazie per il cortese aiuto

Answer 1

Ciao

Sono AnnaThomas e sarei felice di aiutarti con la tua domanda. In questo forum, siamo consumatori Microsoft proprio come te.

Ecco un esempio di macro VBA che dovrebbe eseguire le operazioni descritte:

Sub CopyChartsToPowerPoint() Declare variables to hold references to Excel objects Dim xlApp come Excel.Application Dim xlWB come Excel.Workbook Dim xlWS come Excel.Worksheet

Declare variables to hold references to PowerPoint objects Dim pptApp come PowerPoint.Application Dim pptPres As PowerPoint.Presentation Dim pptSlide come PowerPoint.Slide

Set references to the Excel objects Set xlApp = GetObject(, "Excel.Application") Set xlWB = xlApp.Workbooks("summary.xlsm") Set xlWS = xlWB.Sheets("charts")

Set a reference to the PowerPoint application Set pptApp = New PowerPoint.Application

Open the PowerPoint presentation Set pptPres = pptApp.Presentations.Open("C:\Path\To\Exposure.pptm")

Loop through the charts in the Excel sheet Per i = 1 A 6 Copy the chart from the Excel sheet xlWS.ChartObjects(i). Copiare

Set a reference to the target slide in the PowerPoint presentation Set pptSlide = pptPres.Slides(i + 1)

Delete any existing shapes on the slide Per ogni forma In pptSlide.Shapes forma. Cancellare Forma successiva

' Incolla il grafico sulla diapositiva pptSlide.Shapes.PasteTipo di dati speciale:=ppPasteEnhancedMetafile Avanti i

Save and close the PowerPoint presentation pptPres.Save pptPres.Chiudi

Clean up object references Imposta pptSlide = Niente Imposta pptPres = Niente Imposta pptApp = Niente Imposta xlWS = Niente Imposta xlWB = Niente Imposta xlApp = Niente Fine sub

Sarà necessario aggiornare il percorso del file per la presentazione di PowerPoint in questa riga di codice:

Set pptPres = pptApp.Presentations.Open("C:\Path\To\Exposure.pptm") Sostituire C:\Path\To\Exposure.pptm con il percorso effettivo del file "Exposure.pptm".

Spero che questo aiuti ;-), fammi sapere se questo è contrario a ciò di cui hai bisogno, sarei comunque utile per rispondere a più delle tue domande.

Migliori saluti

AnnaThomas

Restituisci alla comunità. Aiuta la persona successiva con questo problema indicando se questa risposta ha risolto il tuo problema. Fare clic su Sì o No nella parte inferiore.

Questa risposta è stata tradotta automaticamente. Di conseguenza, potrebbero esserci errori grammaticali o espressioni strane.