Teaching Singapore Math Educational Videos | WatchKnowLearn:
'via Blog this'
Tuesday 31 May 2016
Qlikview to PPT | Qlik Community
Qlikview to PPT | Qlik Community: "sub ppt1
Set PPApp = CreateObject("Powerpoint.Application")
PPApp.Visible = True
Set PPPres = PPApp.Presentations.Add
for j = 0 to ActiveDocument.NoOfSheets - 1
ActiveDocument.Sheets(j).Activate
set ss= ActiveDocument.GetSheet(j)
shID =ucase(mid(ss.GetProperties.SheetID,10))
shName=ss.GetProperties.Name
ActiveDocument.GetApplication.WaitForIdle
ActiveDocument.Sheets(shName).Activate
ActiveDocument.Sheets(j).Activate
set s=ActiveDocument.ActiveSheet
Set PPSlide = PPPres.Slides.Add(1, 1)
PPSlide.Shapes(1).Delete ' removes the title
PPSlide.Shapes(1).Delete ' removes the text box
ActiveDocument.Activesheet.CopyBitmapToClipboard
PPSlide.Shapes.Paste
next
PPPres.SaveAs "C:\temp\MyPresentationPPT.ppt"
PPPres.Close
PPApp.Quit
Set PPSlide = Nothing
Set PPPres = Nothing
Set PPApp = Nothing
end sub
'sub sheetsOBJ
'ActiveDocument.Activesheet.CopyBitmapToClipboard
'end sub
sub ppt2
Set PPApp = CreateObject("Powerpoint.Application")
PPApp.Visible = True ' Create a presentation
Set PPPres = PPApp.Presentations.Add
set s=ActiveDocument.Sheets("Sold / Pending")
charts=s.GetGraphs
for i=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
ActiveDocument.GetSheetObject(charts(i).getobjectid).CopyBitmapToClipboard
PPSlide.Shapes.Paste
next
' PPPres.SaveAs "C:\f1\MyPresentation.ppt"
' PPPres.Close
' PPApp.Quit
Set PPSlide = Nothing
Set PPPres = Nothing
Set PPApp = Nothing
end sub"
'via Blog this'
Set PPApp = CreateObject("Powerpoint.Application")
PPApp.Visible = True
Set PPPres = PPApp.Presentations.Add
for j = 0 to ActiveDocument.NoOfSheets - 1
ActiveDocument.Sheets(j).Activate
set ss= ActiveDocument.GetSheet(j)
shID =ucase(mid(ss.GetProperties.SheetID,10))
shName=ss.GetProperties.Name
ActiveDocument.GetApplication.WaitForIdle
ActiveDocument.Sheets(shName).Activate
ActiveDocument.Sheets(j).Activate
set s=ActiveDocument.ActiveSheet
Set PPSlide = PPPres.Slides.Add(1, 1)
PPSlide.Shapes(1).Delete ' removes the title
PPSlide.Shapes(1).Delete ' removes the text box
ActiveDocument.Activesheet.CopyBitmapToClipboard
PPSlide.Shapes.Paste
next
PPPres.SaveAs "C:\temp\MyPresentationPPT.ppt"
PPPres.Close
PPApp.Quit
Set PPSlide = Nothing
Set PPPres = Nothing
Set PPApp = Nothing
end sub
'sub sheetsOBJ
'ActiveDocument.Activesheet.CopyBitmapToClipboard
'end sub
sub ppt2
Set PPApp = CreateObject("Powerpoint.Application")
PPApp.Visible = True ' Create a presentation
Set PPPres = PPApp.Presentations.Add
set s=ActiveDocument.Sheets("Sold / Pending")
charts=s.GetGraphs
for i=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
ActiveDocument.GetSheetObject(charts(i).getobjectid).CopyBitmapToClipboard
PPSlide.Shapes.Paste
next
' PPPres.SaveAs "C:\f1\MyPresentation.ppt"
' PPPres.Close
' PPApp.Quit
Set PPSlide = Nothing
Set PPPres = Nothing
Set PPApp = Nothing
end sub"
'via Blog this'
Monday 30 May 2016
Thursday 26 May 2016
A Drink Which Makes People Rise From The Dead: It Has Been A Hit In The World For Decades, And You Can Make It In Two Minutes. - Natural And Healthy World
Monday 23 May 2016
Saturday 21 May 2016
Thursday 19 May 2016
Wednesday 18 May 2016
Tuesday 17 May 2016
Monday 16 May 2016
Sunday 15 May 2016
Friday 13 May 2016
Thursday 12 May 2016
Monday 9 May 2016
Friday 6 May 2016
Wednesday 4 May 2016
Qlik Design Blog : Recipe for an ABC Analysis | Qlik Community
Qlik Design Blog : Recipe for an ABC Analysis | Qlik Community: " Aggr( If((Rank(Sum(Sales),1)-1) / Count(distinct total Product)< 0.50, 'A',
If((Rank(Sum(Sales),1)-1) / Count(distinct total Product)< 0.75, 'B', 'C')),
Product)"
'via Blog this'
If((Rank(Sum(Sales),1)-1) / Count(distinct total Product)< 0.75, 'B', 'C')),
Product)"
'via Blog this'
Subscribe to:
Posts (Atom)