write macro to copy QV objects in a powerpoint slide

[#1]

Hi ,

I am trying to copy Qlikview objects in a powerpoint slide as an 'Object', and not as an 'image' and am facing two problems here:

1) The below code is successfully coying objects from one sheet(SH05), but once the other sheet (SH04) is activated, its not coying the object from this one. The clipboard have object from the earlier sheet only(SH05)

2) I need to copy the Qlikview object in a powepoint slide as an 'Object' and not as an 'image'.

ActiveDocument.GetSheetObject("CH25").CopyBitmapToClipboard will always copy as an image, Is there a method to copy the object as an 'Object'.

Many thanks in advance.

This is what i have written:

Sub ExportPPT
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

with objPresentation.Slides(1).Shapes(1)
.TextFrame.TextRange = "Supervisory Controls"

'.Left = 100
'.top = 100
'.width=75
'.height=25
end with
ActiveDocument.Sheets("SH05").Activate
ActiveDocument.GetSheetObject("CH23").CopyBitmapToClipboard

with objPresentation.Slides(1).Shapes.PasteSpecial(PasteHTML)
.Left = 100
.top = 125
.width=400
.height=150
end with
ActiveDocument.GetSheetObject("CH25").CopyBitmapToClipboard
with objPresentation.Slides(1).Shapes.Paste
.Left = 100
.top = 300
.width=100
.height=125
end with
ActiveDocument.GetSheetObject("CH26").CopyBitmapToClipboard
with objPresentation.Slides(1).Shapes.Paste
.Left = 400
.top = 300
.width=100
.height=125
end with

Set PPSlide = objPresentation.Slides.Add(2,11)
with objPresentation.Slides(2).Shapes(1)
.TextFrame.TextRange = "Resource Forecasting"
end with

ActiveDocument.ActivateSheetByID "SH04"
'ActiveDocument.Sheets("SH04").Activate
ActiveDocument.GetSheetObject("CH22").CopyBitmapToClipboard
objPresentation.Slides(2).select
with objPresentation.Slides(2).Shapes.Paste
.Left = 100
.top = 125
.width=400
.height=150
end with

ActiveDocument.GetSheetObject("CH28").CopyBitmapToClipboard

with objPresentation.Slides(2).Shapes.Paste
.Left = 100
.top = 300
.width=100
.height=125
end with

Set PPSlide = Nothing

Set PPPres = Nothing

End sub