<?xml version="1.0" encoding="UTF-8"?>
<rss xmlns:content="http://purl.org/rss/1.0/modules/content/" xmlns:dc="http://purl.org/dc/elements/1.1/" xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#" xmlns:taxo="http://purl.org/rss/1.0/modules/taxonomy/" version="2.0">
  <channel>
    <title>topic Get objects used in a container using vba? in QlikView</title>
    <link>https://community.qlik.com/t5/QlikView/Get-objects-used-in-a-container-using-vba/m-p/1002347#M1233267</link>
    <description>&lt;HTML&gt;&lt;HEAD&gt;&lt;/HEAD&gt;&lt;BODY&gt;&lt;P&gt;Hi&lt;/P&gt;&lt;P&gt;Experts I need help. I have sheet with 2 charts and a container. Inside container I have 3 charts. I am trying to export charts from the sheet to PPT. One chart per slide. using following code charts are exporting okay however when I am trying to get object ID from container object I am getting blank.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;Please help.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;Sub Export_All_Chart_Images_Current_Sheet()&lt;/P&gt;&lt;P&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp; set objPPT = CreateObject("PowerPoint.Application")&lt;/P&gt;&lt;P&gt;&amp;nbsp; objPPT.Visible = True&lt;/P&gt;&lt;P&gt;&amp;nbsp; Set objPresentation = objPPT.Presentations.Add&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&amp;nbsp; 'For i = 0 To ActiveDocument.NoOfSheets - 1&lt;/P&gt;&lt;P&gt;&amp;nbsp; 'msgbox(ActiveDocument.ActiveSheet.GetProperties.SheetId)&lt;/P&gt;&lt;P&gt;&amp;nbsp; 'set MySheetID = right(ActiveDocument.ActiveSheet.GetProperties.SheetId,4) '&amp;lt;&amp;lt;&amp;lt;&amp;lt;&amp;lt; this has problem&lt;/P&gt;&lt;P&gt;&amp;nbsp; 'set MySheetID= CHR(34)&amp;amp;right(ActiveDocument.ActiveSheet.GetProperties.SheetId,4)&amp;amp;CHR(34)&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; Set MySheet = ActiveDocument.GetSheetByid (right(ActiveDocument.ActiveSheet.GetProperties.SheetId,4))&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; MyCharts=MySheet.GetSheetObjects&lt;/P&gt;&lt;P&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; For X =lbound(MyCharts) to ubound(MyCharts)&lt;/P&gt;&lt;P&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; 'msgbox(X) &lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; 'msgbox("Chart: " &amp;amp; MyCharts(X).GetObjectId)&lt;/P&gt;&lt;P&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; Set obj = ActiveDocument.GetSheetObject(MyCharts(X).GetObjectId)&lt;/P&gt;&lt;P&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; 'msgbox(Obj.GetObjectType)&lt;/P&gt;&lt;P&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; IF Obj.GetObjectType &amp;gt;= 10 AND Obj.GetObjectType =&amp;lt; 16 Then &lt;/P&gt;&lt;P&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; Set PPSlide = objPresentation.Slides.Add(X+1,11)&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; &lt;/P&gt;&lt;P&gt;&amp;nbsp; obj.CopyBitmapToClipboard&lt;/P&gt;&lt;P&gt;&amp;nbsp; PPSlide.Shapes.Paste&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&amp;nbsp; else if Obj.GetObjectType =36 then&lt;/P&gt;&lt;P&gt;&amp;nbsp; NewIndex = 0&lt;/P&gt;&lt;P&gt;&amp;nbsp; msgbox(MyCharts(X).GetObjectId)&lt;/P&gt;&lt;P&gt;&amp;nbsp; Set ContainerObj = ActiveDocument.GetSheetObject(MyCharts(X).GetObjectId)&lt;/P&gt;&lt;P&gt;&amp;nbsp; set ContProp=ContainerObj.GetProperties &lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&amp;nbsp; for i = 0 to ContProp.ContainedObjects.Count - 1 &lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&amp;nbsp; msgbox("i="&amp;amp;i&amp;amp;"|"&amp;amp;&lt;SPAN style="color: #ff0000;"&gt;ContProp.ContainedObjects(i).Text.v&lt;/SPAN&gt; )&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&amp;nbsp; next&lt;/P&gt;&lt;P&gt;&amp;nbsp; end if&lt;/P&gt;&lt;P&gt;&amp;nbsp; End if&lt;/P&gt;&lt;P&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; Next&lt;/P&gt;&lt;P&gt;'&amp;nbsp;&amp;nbsp;&amp;nbsp; Next&amp;nbsp; &lt;/P&gt;&lt;P&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp; Set PPSlide = Nothing&lt;/P&gt;&lt;P&gt;&amp;nbsp; Set PPPres = Nothing&lt;/P&gt;&lt;P&gt;End Sub&lt;/P&gt;&lt;/BODY&gt;&lt;/HTML&gt;</description>
    <pubDate>Mon, 26 Jan 2026 16:26:21 GMT</pubDate>
    <dc:creator>rmuhammad</dc:creator>
    <dc:date>2026-01-26T16:26:21Z</dc:date>
    <item>
      <title>Get objects used in a container using vba?</title>
      <link>https://community.qlik.com/t5/QlikView/Get-objects-used-in-a-container-using-vba/m-p/1002347#M1233267</link>
      <description>&lt;HTML&gt;&lt;HEAD&gt;&lt;/HEAD&gt;&lt;BODY&gt;&lt;P&gt;Hi&lt;/P&gt;&lt;P&gt;Experts I need help. I have sheet with 2 charts and a container. Inside container I have 3 charts. I am trying to export charts from the sheet to PPT. One chart per slide. using following code charts are exporting okay however when I am trying to get object ID from container object I am getting blank.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;Please help.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;Sub Export_All_Chart_Images_Current_Sheet()&lt;/P&gt;&lt;P&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp; set objPPT = CreateObject("PowerPoint.Application")&lt;/P&gt;&lt;P&gt;&amp;nbsp; objPPT.Visible = True&lt;/P&gt;&lt;P&gt;&amp;nbsp; Set objPresentation = objPPT.Presentations.Add&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&amp;nbsp; 'For i = 0 To ActiveDocument.NoOfSheets - 1&lt;/P&gt;&lt;P&gt;&amp;nbsp; 'msgbox(ActiveDocument.ActiveSheet.GetProperties.SheetId)&lt;/P&gt;&lt;P&gt;&amp;nbsp; 'set MySheetID = right(ActiveDocument.ActiveSheet.GetProperties.SheetId,4) '&amp;lt;&amp;lt;&amp;lt;&amp;lt;&amp;lt; this has problem&lt;/P&gt;&lt;P&gt;&amp;nbsp; 'set MySheetID= CHR(34)&amp;amp;right(ActiveDocument.ActiveSheet.GetProperties.SheetId,4)&amp;amp;CHR(34)&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; Set MySheet = ActiveDocument.GetSheetByid (right(ActiveDocument.ActiveSheet.GetProperties.SheetId,4))&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; MyCharts=MySheet.GetSheetObjects&lt;/P&gt;&lt;P&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; For X =lbound(MyCharts) to ubound(MyCharts)&lt;/P&gt;&lt;P&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; 'msgbox(X) &lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; 'msgbox("Chart: " &amp;amp; MyCharts(X).GetObjectId)&lt;/P&gt;&lt;P&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; Set obj = ActiveDocument.GetSheetObject(MyCharts(X).GetObjectId)&lt;/P&gt;&lt;P&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; 'msgbox(Obj.GetObjectType)&lt;/P&gt;&lt;P&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; IF Obj.GetObjectType &amp;gt;= 10 AND Obj.GetObjectType =&amp;lt; 16 Then &lt;/P&gt;&lt;P&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; Set PPSlide = objPresentation.Slides.Add(X+1,11)&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; &lt;/P&gt;&lt;P&gt;&amp;nbsp; obj.CopyBitmapToClipboard&lt;/P&gt;&lt;P&gt;&amp;nbsp; PPSlide.Shapes.Paste&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&amp;nbsp; else if Obj.GetObjectType =36 then&lt;/P&gt;&lt;P&gt;&amp;nbsp; NewIndex = 0&lt;/P&gt;&lt;P&gt;&amp;nbsp; msgbox(MyCharts(X).GetObjectId)&lt;/P&gt;&lt;P&gt;&amp;nbsp; Set ContainerObj = ActiveDocument.GetSheetObject(MyCharts(X).GetObjectId)&lt;/P&gt;&lt;P&gt;&amp;nbsp; set ContProp=ContainerObj.GetProperties &lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&amp;nbsp; for i = 0 to ContProp.ContainedObjects.Count - 1 &lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&amp;nbsp; msgbox("i="&amp;amp;i&amp;amp;"|"&amp;amp;&lt;SPAN style="color: #ff0000;"&gt;ContProp.ContainedObjects(i).Text.v&lt;/SPAN&gt; )&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&amp;nbsp; next&lt;/P&gt;&lt;P&gt;&amp;nbsp; end if&lt;/P&gt;&lt;P&gt;&amp;nbsp; End if&lt;/P&gt;&lt;P&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; Next&lt;/P&gt;&lt;P&gt;'&amp;nbsp;&amp;nbsp;&amp;nbsp; Next&amp;nbsp; &lt;/P&gt;&lt;P&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp; Set PPSlide = Nothing&lt;/P&gt;&lt;P&gt;&amp;nbsp; Set PPPres = Nothing&lt;/P&gt;&lt;P&gt;End Sub&lt;/P&gt;&lt;/BODY&gt;&lt;/HTML&gt;</description>
      <pubDate>Mon, 26 Jan 2026 16:26:21 GMT</pubDate>
      <guid>https://community.qlik.com/t5/QlikView/Get-objects-used-in-a-container-using-vba/m-p/1002347#M1233267</guid>
      <dc:creator>rmuhammad</dc:creator>
      <dc:date>2026-01-26T16:26:21Z</dc:date>
    </item>
    <item>
      <title>Re: Get objects used in a container using vba?</title>
      <link>https://community.qlik.com/t5/QlikView/Get-objects-used-in-a-container-using-vba/m-p/1002348#M1233273</link>
      <description>&lt;HTML&gt;&lt;HEAD&gt;&lt;/HEAD&gt;&lt;BODY&gt;&lt;P&gt;Most often it's a lot easier to use specialized print- and export-objects on a (hidden) sheet and then there is no need to develop (such) complex routines.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;- Marcus&lt;/P&gt;&lt;/BODY&gt;&lt;/HTML&gt;</description>
      <pubDate>Tue, 22 Sep 2015 15:56:03 GMT</pubDate>
      <guid>https://community.qlik.com/t5/QlikView/Get-objects-used-in-a-container-using-vba/m-p/1002348#M1233273</guid>
      <dc:creator>marcus_sommer</dc:creator>
      <dc:date>2015-09-22T15:56:03Z</dc:date>
    </item>
    <item>
      <title>Re: Get objects used in a container using vba?</title>
      <link>https://community.qlik.com/t5/QlikView/Get-objects-used-in-a-container-using-vba/m-p/1002349#M1233279</link>
      <description>&lt;HTML&gt;&lt;HEAD&gt;&lt;/HEAD&gt;&lt;BODY&gt;&lt;P&gt;Hi Marcus, thanks for reply.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;Can you please provide some how steps for the &lt;SPAN style="color: #3d3d3d; font-family: 'Helvetica Neue', Helvetica, Arial, 'Lucida Grande', sans-serif; font-size: 13px;"&gt;use of specialized print- and export-objects on a (hidden) sheet?&lt;/SPAN&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;Thanks&lt;/P&gt;&lt;/BODY&gt;&lt;/HTML&gt;</description>
      <pubDate>Tue, 22 Sep 2015 18:43:23 GMT</pubDate>
      <guid>https://community.qlik.com/t5/QlikView/Get-objects-used-in-a-container-using-vba/m-p/1002349#M1233279</guid>
      <dc:creator>rmuhammad</dc:creator>
      <dc:date>2015-09-22T18:43:23Z</dc:date>
    </item>
    <item>
      <title>Re: Get objects used in a container using vba?</title>
      <link>https://community.qlik.com/t5/QlikView/Get-objects-used-in-a-container-using-vba/m-p/1002350#M1233283</link>
      <description>&lt;HTML&gt;&lt;HEAD&gt;&lt;/HEAD&gt;&lt;BODY&gt;&lt;P&gt;It's quite easy. At first you creates a new sheet and used a visibilty-condition for it, maybe related to you or a certain user-group per querying the osuser() or simple 1 &amp;gt; 2 (then you could only grab the sheet within the document properties).&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;Then you makes simple copy and paste from your print- and export-objects into this sheet - then you might adjust some things on those objects like more column-widths, other number-fomatting, other colors but many more is possible (if there are many objects you could minimize them and group them into a textbox-frame - minimizing had no effect to exports and printing in opposite to hiding them like the unseen objects within a container).&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;And then you used those objects within your print-reports or export-macros.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;- Marcus&lt;/P&gt;&lt;/BODY&gt;&lt;/HTML&gt;</description>
      <pubDate>Wed, 23 Sep 2015 06:53:08 GMT</pubDate>
      <guid>https://community.qlik.com/t5/QlikView/Get-objects-used-in-a-container-using-vba/m-p/1002350#M1233283</guid>
      <dc:creator>marcus_sommer</dc:creator>
      <dc:date>2015-09-23T06:53:08Z</dc:date>
    </item>
  </channel>
</rss>

