[es] - makro Chart To PPT

ramzesIV

Član broj: 263681
Poruke: 149
*.univie.teleweb.at.

+6 Profil

^{22.03.2012. u 16:46 - pre 147 meseci}

novo pitanje:

imam jedan makro koji kopira selektovani grafik i prebacuje u power point prezentaciju, selektovani slajd.

radi odlicno, samo ako mogu dve stvari da se prerade.

1. da li moze prvo da se obrise vec postojeci grafik u selektovanom slajdu pa da se pastuje ovaj novi iz excela.

2. makro selektuje prezentaciju tj dobijem samo slajd preko cele strane u power pointu. da li je moguce nekako da sa leve strane ostanu slajdovi.

a ovako izgleda makro:

Citat:

Sub ChartToPresentation()

' Set a VBE reference to Microsoft PowerPoint 10.0 Object Library for Office 2002,

Dim PPApp As PowerPoint.Application

Dim PPPres As PowerPoint.Presentation

Dim PPSlide As PowerPoint.Slide

' Make sure a chart is selected

If ActiveChart Is Nothing Then

MsgBox "Please select a chart and try again.", vbExclamation, _

"No Chart Selected"

Else

Set PPApp = GetObject(, "Powerpoint.Application")

' Reference active presentation

Set PPPres = PPApp.ActivePresentation

PPApp.ActiveWindow.ViewType = ppViewSlide

' Reference active slide

Set PPSlide = PPPres.Slides _

(PPApp.ActiveWindow.Selection.SlideRange.SlideIndex)

' Copy chart as a picture

ActiveChart.CopyPicture Appearance:=xlScreen, Size:=xlScreen, _

Format:=xlPicture

' Paste chart

PPSlide.Shapes.Paste.Select

' Align pasted chart

PPApp.ActiveWindow.Selection.ShapeRange.Align msoAlignCenters, True

PPApp.ActiveWindow.Selection.ShapeRange.Align msoAlignMiddles, True

PPApp.ActiveWindow.Selection.ShapeRange(1).Top = PPApp.ActiveWindow.Selection.ShapeRange(1).Top + 30

' Clean up

Set PPSlide = Nothing

Set PPPres = Nothing

Set PPApp = Nothing

End If

End Sub

Odgovor na temu