Rebecca Birch ha alcuni clienti che richiedono che tutti i rapporti vengano presentati loro in PowerPoint. Ciò rappresenta un compito enorme, poiché tutti i dati di origine per quei rapporti sono disponibili solo in Excel. Rebecca era alla ricerca di idee per semplificare un po ‘l’onere della conversione dall’una all’altra, magari scattando “istantanee” dei dati del foglio di lavoro e inserendoli nelle diapositive di PowerPoint.

Una soluzione, se non sono necessarie molte istantanee, è semplicemente incollare manualmente. È possibile visualizzare le informazioni in Excel e quindi premere il tasto PrintScreen per inserirne un’immagine negli Appunti di Office. Passa a PowerPoint e scegli Appunti di Office dal menu Modifica. È quindi possibile visualizzare il contenuto degli Appunti e scegliere cosa si desidera incollare nella diapositiva corrente.

Un approccio meno ripetitivo sarebbe collegare i dati dalla cartella di lavoro di Excel alle diapositive. Puoi usare Modifica | Incolla speciale (in PowerPoint) per incollare i dati collegati. In questo modo, ogni volta che i dati nella cartella di lavoro vengono aggiornati, verranno aggiornate anche le diapositive collegate. Se eseguita correttamente, questa soluzione offre la possibilità di dover eseguire l’incollaggio una sola volta.

Se preferisci seguire la strada dello sviluppo di macro per incollare, dai un’occhiata a quella sviluppata da Jon Peltier sul suo sito Web:

http://peltiertech.com/Excel/XL_PPT.html#rangeppt

Verrà eseguita un’istantanea di tutte le celle selezionate, quindi le incollerà nella diapositiva attiva in PowerPoint. (Ovviamente, devi avere sia Excel che PowerPoint aperti per poter usare la macro.)

Inoltre, la macro potrebbe essere modificata in modo relativamente semplice in modo da passare attraverso una serie di intervalli denominati in Excel e incollare il contenuto di tali intervalli in diapositive specificate in PowerPoint.

Un’altra soluzione basata su macro consiste nel creare una nuova presentazione di PowerPoint (dall’interno di Excel) che conterrà un’istantanea di ciascuno dei fogli di lavoro nella cartella di lavoro di Excel corrente. La seguente macro esegue questa operazione:

Sub CopyWksToPPT()

Dim pptApp As Object     Dim sTemplatePPt As String     Dim wks As Worksheet     Dim sTargetTop As Single     Dim sTargetLeft As Single     Dim sTargetWidth As Single     Dim sTargetHeight As Single     Dim sScaleHeight As Single     Dim sScaleWidth As Single     Dim iIndex As Integer

'Change these as desired     sTargetTop = 30     sTargetLeft = 60     sTargetWidth = 600     sTargetHeight = 450     sTemplatePPt = "C:\Program Files\Microsoft Office\Templates\Blank Presentation.pot"



iIndex = 1     Set pptApp = CreateObject("Powerpoint.Application")

With pptApp         .Visible = True         .Presentations.Open _             FileName:=sTemplatePPt, Untitled:=msoTrue         For Each wks In Worksheets             wks.Select             .ActiveWindow.View.GotoSlide _                 Index:=.ActivePresentation.Slides.Add _                 (Index:=iIndex, Layout:=12).SlideIndex             iIndex = iIndex + 1             wks.UsedRange.Copy             .ActiveWindow.View.Paste             With .ActiveWindow.Selection.ShapeRange                 sScaleHeight = sTargetHeight / .Height                 sScaleWidth = sTargetWidth / .Width                 If sScaleHeight < sScaleWidth Then                     sScaleWidth = sScaleHeight                 Else                     sScaleHeight = sScaleWidth                 End If                 .ScaleHeight sScaleHeight, 0, 2                 .ScaleWidth sScaleWidth, 0, 2                 .Top = sTargetTop + (sTargetHeight - .Height) / 2                 .Left = sTargetLeft + (sTargetWidth - .Width) / 2             End With         Next         .Visible = True     End With End Sub

Notare l’area che dice “Modificare questi come desiderato”. Contiene le specifiche di dove sarà l’istantanea incollata all’interno di ciascuna diapositiva di PowerPoint, nonché la sua altezza e larghezza. Inoltre, nella variabile sTemplatePPt è incluso il percorso completo del modello da utilizzare per la nuova presentazione di PowerPoint.

_Nota: _

Se desideri sapere come utilizzare le macro descritte in questa pagina (o in qualsiasi altra pagina dei siti ExcelTips), ho preparato una pagina speciale che include informazioni utili.

Fare clic qui per aprire quella pagina speciale in una nuova scheda del browser.

ExcelTips è la tua fonte di formazione economica su Microsoft Excel.

Questo suggerimento (2378) si applica a Microsoft Excel 97, 2000, 2002 e 2003.