Automatic Export of QV charts and graphs in Excel after reloading

[#1]

Hi,

Some one kindly tell me how the QV charts and graphs can automatically be exported into excel after the reloading of the QV application.

Thanks and Regards,

Gaurav

[dirk_konings]

By creating some macro's and run these 'OnPostReload' in the Triggers tab of Document properties.

Examples of macro's can be found within this community

[suniljain]

You cannot export chart and graph automatically on postreload but you can export chart and graph to excel only on document open event.

I implemented same thing.

[#4]

Dear Sunil,

Many thanks for giving that answer.

I request you to kindly tell me how to export chart and graph to excel only on document open event to excel. Does it mean doing it manually or you have to write some code for it.

AS you have implemented it, please give me also the code.

Thanks and Regards,

Gaurav

[suniljain]

sub

Export_To_XLS_PPT

True

"WORK_YEAR"

). Select ActiveDocument.Evaluate("Current_Year"

)

"WORK_WEEK"

). Select ActiveDocument.Evaluate("LastWeek"

)

"WORK_DAY"

). Select ActiveDocument.Evaluate("LastWeek"

)

'To Excel Generate

set

obj = ActiveDocument.GetSheetObject("CH703"

)

"E:\Qlikview\Prima\PPT\Department_Loadinng.xls"

,5

set

obj = ActiveDocument.GetSheetObject("CH704"

)

"E:\Qlikview\Prima\PPT\Top_5_Project.xls"

,5

set

obj = ActiveDocument.GetSheetObject("CH705"

)

"E:\Qlikview\Prima\PPT\0HrsProject.xls"

,5

'To PPT Generate

Set

PPApp = CreateObject("Powerpoint.Application"

)

True

' Create a presentation

Set

PPPres = PPApp.Presentations.Add

'Slide1 : HSSA Work allocation

Set

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

"CH15"

).CopyBitmapToClipboard

'Slide2 : HSSA Objectives

Set

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

"CH633"

).CopyBitmapToClipboard

'Slide3 : Operational Support

Set

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

"CH634"

).CopyBitmapToClipboard

'Slide 4 : Projectwise Contribution

Set

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

"CH635"

).CopyBitmapToClipboard

'Slide 5 : Departmental Details BIa,HR,IT T & HD,ITSM&O,ITS&C,PCO,F&C

Set

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

"CH636"

).CopyBitmapToClipboard

Set

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

"CH638"

).CopyBitmapToClipboard

Set

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

"CH639"

).CopyBitmapToClipboard

Set

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

"CH640"

).CopyBitmapToClipboard

Set

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

"CH641"

).CopyBitmapToClipboard

Set

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

"CH642"

).CopyBitmapToClipboard

Set

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

"CH643"

).CopyBitmapToClipboard

Set

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

"CH644"

).CopyBitmapToClipboard

'Slide 6 : PCO

Set

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

"CH645"

).CopyBitmapToClipboard

Set

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

"CH646"

).CopyBitmapToClipboard

Set

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

"CH647"

).CopyBitmapToClipboard

'Slide 7 : ITSM & O

Set

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

"CH648"

).CopyBitmapToClipboard

Set

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

"CH649"

).CopyBitmapToClipboard

Set

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

"CH650"

).CopyBitmapToClipboard

'Slide 8 : IT S&C

Set

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

"CH651"

).CopyBitmapToClipboard

Set

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

"CH652"

).CopyBitmapToClipboard

Set

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

"CH653"

).CopyBitmapToClipboard

'Slide 9 : Training & Support

Set

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

"CH654"

).CopyBitmapToClipboard

Set

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

"CH656"

).CopyBitmapToClipboard

Set

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

"CH657"

).CopyBitmapToClipboard

'Slide 10 : F&C

Set

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

"CH658"

).CopyBitmapToClipboard

Set

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

"CH659"

).CopyBitmapToClipboard

Set

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

"CH660"

).CopyBitmapToClipboard

'Slide 11 : HR

Set

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

"CH661"

).CopyBitmapToClipboard

Set

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

"CH662"

).CopyBitmapToClipboard

Set

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

"CH663"

).CopyBitmapToClipboard

'Slide 12 : BIA-ABAP

Set

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

"CH664"

).CopyBitmapToClipboard

Set

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

"CH665"

).CopyBitmapToClipboard

Set

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

"CH666"

).CopyBitmapToClipboard

'Slide 13 : BIA-MM

Set

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

"CH667"

).CopyBitmapToClipboard

Set

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

"CH668"

).CopyBitmapToClipboard

Set

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

"CH669"

).CopyBitmapToClipboard

'Slide 14 : BIA-PM

Set

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

"CH670"

).CopyBitmapToClipboard

Set

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

"CH672"

).CopyBitmapToClipboard

Set

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

"CH671"

).CopyBitmapToClipboard

'Slide 15 : BIA-PS

Set

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

"CH673"

).CopyBitmapToClipboard

Set

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

"CH674"

).CopyBitmapToClipboard

Set

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

"CH675"

).CopyBitmapToClipboard

'Slide 16 : BIA-FICO

Set

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

"CH676"

).CopyBitmapToClipboard

Set

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

"CH677"

).CopyBitmapToClipboard

Set

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

"CH678"

).CopyBitmapToClipboard

'Slide 17 : BIA-PP

Set

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

"CH679"

).CopyBitmapToClipboard

Set

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

"CH680"

).CopyBitmapToClipboard

Set

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

"CH681"

).CopyBitmapToClipboard

'Slide 18 : BIA-BW

Set

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

"CH682"

).CopyBitmapToClipboard

Set

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

"CH683"

).CopyBitmapToClipboard

Set

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

"CH684"

).CopyBitmapToClipboard

'Slide 19 : BIA-HR

Set

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

"CH685"

).CopyBitmapToClipboard

Set

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

"CH686"

).CopyBitmapToClipboard

Set

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

"CH687"

).CopyBitmapToClipboard

'Slide 20 : BIA-AUTH

Set

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

"CH688"

).CopyBitmapToClipboard

Set

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

"CH689"

).CopyBitmapToClipboard

Set

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

"CH690"

).CopyBitmapToClipboard

'Slide 21 : BIA-SD

Set

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

"CH691"

).CopyBitmapToClipboard

Set

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

"CH692"

).CopyBitmapToClipboard

Set

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

"CH694"

).CopyBitmapToClipboard

'Slide 22 : BIA-SECRETARY

Set

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

"CH693"

).CopyBitmapToClipboard

Set

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

"CH695"

).CopyBitmapToClipboard

Set

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

"CH696"

).CopyBitmapToClipboard

'Slide 23 : BIA-RMX

Set

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

"CH697"

).CopyBitmapToClipboard

Set

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

"CH699"

).CopyBitmapToClipboard

Set

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

"CH700"

).CopyBitmapToClipboard

'Slide 24 : BASIC KNOW SAP,.NET

Set

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

"CH698"

).CopyBitmapToClipboard

Set

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

"CH702"

).CopyBitmapToClipboard

Set

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

"CH701"

).CopyBitmapToClipboard

"E:\Qlikview\Prima\PPT\Presentation.ppt"

Set

PPSlide = Nothing

Set

PPPres = Nothing

Set

PPApp =

Nothing

end

sub