[ ramzesIV @ 22.03.2012. 16:46 ] @
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