Only get Active Graph

Fri, 23 Mar 2012 10:49:10 GMT

Hello to all,

im writing a macro under VB that export my Graph from my Sheet "TV". Everything works fine, but i want only the

Graph that are Active. Because i have totally 14 Graphs in my Sheet, some have conditions, so that never all 14 Graph

are Active and so i want to export only the Active Graph, that can be 2 or more. But i get every time 14 Sites in my PowerPoint

Sheet and some Sheets are empty with the Text "Keine Daten verfügbar" (No Dates available). But i want only then the 2 or more

Sheets in Power Point. Here are my code, with the "Active" condition.

sub test

Set PPApp = CreateObject("Powerpoint.Application")

PPApp.Visible = True ' Create a presentation

Set PPPres = PPApp.Presentations.Add

set s=ActiveDocument.Sheets("TV")

charts=s.GetGraphs

for x = lbound(charts) to ubound (charts)

if charts(x).IsActive then --------------------------------------------> ACTIVE

for i = UBound(charts) - 1 To 0 Step -1

for j= 0 to i

if charts(j).getobjectid>charts(j+1).getobjectid then

set temp=charts(j+1)

set charts(j+1)=charts(j)

set charts(j)=temp

end if

END IF

for z=lbound(charts) to ubound(charts)

Set PPSlide = PPPres.Slides.Add(1, 1)

'PPSlide.Shapes(1).Delete ' removes the title

'PPSlide.Shapes(1).Delete ' removes the text box

'Wenn das Chart minimiert ist dann muss es maximiert werden um exportiert zu werden

IF ActiveDocument.GetSheetObject(charts(z).getobjectid).isMinimized Then

ActiveDocument.GetSheetObject(charts(z).getobjectid).maximize

END IF

ActiveDocument.GetSheetObject(charts(z).getobjectid).CopyBitmapToClipboard

ActiveDocument.GetSheetObject(charts(z).getobjectid).minimize

with PPSlide.Shapes.Paste

.Left = 0

.Top = 30

.Width=720

end with

PPPres.SaveAs "C:\Test.ppt"

'PPPres.Close

'PPApp.Quit

Set PPSlide = Nothing

Set PPPres = Nothing

Set PPApp = Nothing

end sub

What is wrong??

topic Only get Active Graph in QlikView