topic Need Macro Help in QlikView

Need Macro Help

pinky1234 — Wed, 25 Nov 2020 16:16:04 GMT

Hello,

Please find my attached Qvw. You see two charts which is Sales and Revenue charts. There is a button which will export those two charts to PowerPoint.

I am looking for option before exporting to power point, it should prompt me with the charts names which is Sales and Revenue charts to select the report name.

Based on selection that charts should export to PPT. If i select revenue then Revenue chart should export to PPT.

Can you please help me with the Macro that i am looking for my Dashboard.

Regards,

Pinky

Re: Need Macro Help

m_woolf — Tue, 17 Jul 2018 14:58:04 GMT

I didn't do exactly what you asked for.

Re: Need Macro Help

pinky1234 — Tue, 17 Jul 2018 16:14:32 GMT

Thanks for the reply!

But i am looking for option before exporting to power point it should prompt me with the list box or what ever object it is with the report names So that i can choose which chart i need to export.

Can anyone help on this?

Re: Need Macro Help

pinky1234 — Tue, 17 Jul 2018 18:06:25 GMT

Can anyone help on this?

Regards,

Pinky

Re: Need Macro Help

pinky1234 — Wed, 18 Jul 2018 13:07:02 GMT

Can anyone respond to this? Please let me know if this not possible in Qlikview also let me know if you have any questions.

Requirement:

I am looking for option before exporting to power point it should prompt me with the list box or what ever object it is with the report names So that i can choose which chart i need to export.

Re: Need Macro Help

pinky1234 — Wed, 18 Jul 2018 18:15:03 GMT

I am fine with your solution. But one more change, if i click sales export button it should export chart and below table same thing for Revenue also. If i click Revenue Export Button should export both chart and Table.

I have attached Qvw. Please find the attached Qvw and let me know how can i implement ?

I really appreciate your help!Thanks

Pinky

Re: Need Macro Help

m_woolf — Thu, 19 Jul 2018 16:28:27 GMT

You can fiddle with the top, left, width and height:

Re: Need Macro Help

pinky1234 — Thu, 19 Jul 2018 17:35:51 GMT

Thanks for your reply. Small correction. I want to export Both charts. The one you see the table box under Barchart is Pivot tables comes under charts.

if strExport = "Sales" then

strTitle = "Total Sales"

strCHID = "CH01"

strTBID = "TB01"

else

strTitle = "Total Revenue"

strCHID = "CH02"

strTBID = "TB01"

If i want to export "CH01" and "CH03" charts to power point if str Export ="Sales". Please find the attached Qvw and let me know.Thanks!

Re: Need Macro Help

trdandamudi — Thu, 19 Jul 2018 18:07:21 GMT

I made the change to your code and here it is: What ever lines in bold are the lines that I added to your code:

Sub ExportPPT
Set v = ActiveDocument.Variables("vExport")
strExport = v.Getcontent.string

Set objPPT = CreateObject("PowerPoint.Application")
objPPT.Visible = True
Set objPresentation = objPPT.Presentations.Add
Set PPSlide = objPresentation.Slides.Add(1,11)
set up = ActiveDocument.GetApplication.GetUserPreferences
up.ChartUseCapNBorder = True
ActiveDocument.GetApplication.SetUserPreferences up

if strExport = "Sales" then
strTitle = "Total Sales"
strCHID = "CH01"
strCHID2 = "CH03"
strTBID = "TB01"
else
strTitle = "Total Revenue"
strCHID = "CH02"
strTBID = "TB01"
end if

with objPresentation.Slides(1).Shapes(1)
.TextFrame.TextRange = strTitle
.Left = 100
.top = 45
.width=500
.height=20
end with
ActiveDocument.Sheets("SH01").Activate
ActiveDocument.GetSheetObject(strCHID).CopyBitmapToClipboard
with objPresentation.Slides(1).Shapes.PasteSpecial(PasteHTML)
.Left = 50
.top = 50
.width=300
.height=100
end with

ActiveDocument.Sheets("SH01").Activate
ActiveDocument.GetSheetObject(strCHID2).CopyBitmapToClipboard
with objPresentation.Slides(1).Shapes.PasteSpecial(PasteHTML)
.Left = 50
.top = 200
.width=300
.height=100
end with

ActiveDocument.GetSheetObject(strTBID).CopyBitmapToClipboard
with objPresentation.Slides(1).Shapes.PasteSpecial(PasteHTML)
.Left = 50
.top = 400
.width=350
.height=100
end with
'ActiveDocument.GetSheetObject("CH02").CopyBitmapToClipboard
'with objPresentation.Slides(1).Shapes.Paste
' .Left = 500
' .top = 100
' .width=700
' .height=250
'end with

Set PPSlide = Nothing

Set PPPres = Nothing

End sub