Hi,
I have a macro to export the charts to multiple slides in powerpoint. The export is working fine without any issues for charts which are visible in the sheet.
I have many hidden charts which are restored by a variable selection. I need to export them to powerpoint. I have incuded additional script in macro to change the variable name, so that the hidden charts are restored and then exported to powerpoint slides. This is not working. The variable value are changed correctly by the macro, but the corresponding charts are not exported.
The script is given below:
'The below macro is to set the variable value to hide/display the corresponding charts
sub varSel(varContent)
Set v = ActiveDocument.Variables("vAnalysisMode")
v.setContent varContent, true
end sub
sub exportSlide(slideRef)
select case slideRef
case "S_1"
'set the variable value to display the appropriate charts
call varSel("MAT Financials")
intSlideNumber = 1
'Charts to be exported to slide 1
call exportObject("CH366", intSlideNumber, 32, 31, 80, 90)
case "S_4"
'set the variable value to display the appropriate charts
call varSel("$ per SSU")
call exportObject("CH411", 4, 200, 100, 80, 90)
end select
'call varSel("False()")
end sub
'Function to export the objects to slides
function exportObject(objectId, slideNumber, width, height, posLeft, posTop)
ActiveDocument.GetSheetObject(objectId).CopyBitmapToClipboard
ppApp.ActiveWindow.View.Gotoslide slideNumber
ppApp.ActiveWindow.ViewType=1
ppApp.ActiveWindow.View.Paste
ppApp.ActiveWindow.Selection.ShapeRange.Left = posLeft
ppApp.ActiveWindow.Selection.ShapeRange.Top = posTop
End function
The macro gets debugged without any error and the powerpoint is generated but, the required charts are not copied. Am I missing something? please throw some light on this.
Thanks,
Haneesh
