topic Re: dynamically save various reports as pdf with different filename in QlikView https://community.qlik.com/t5/QlikView/dynamically-save-various-reports-as-pdf-with-different-filename/m-p/1194602#M882754 <HTML><HEAD></HEAD><BODY><P>Give it one more try:</P><P></P><PRE __default_attr="plain" __jive_macro_name="code" class="jive_macro_code jive_text_macro _jivemacro_uid_14775750773419266" jivemacro_uid="_14775750773419266" modifiedtitle="true"> <P>''*************************************************************************************</P> <P>''***&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Export&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ***</P> <P>''*************************************************************************************</P> <P>Public Sub Export&nbsp;&nbsp;&nbsp; </P> <P>&nbsp;&nbsp;&nbsp; SET Doc = ActiveDocument</P> <P>&nbsp;&nbsp;&nbsp; SET Field = Doc.Fields("BusGrp").GetPossibleValues</P> <P>&nbsp;&nbsp;&nbsp; FieldCount = Field.Count</P> <P>&nbsp;&nbsp;&nbsp; FOR p=0 to Field.Count -1</P> <P>&nbsp;&nbsp;&nbsp; Doc.Fields("BusGrp").SELECT Field.Item(p).Text</P> <P>&nbsp;&nbsp;&nbsp; ActiveDocument.Fields("Year").select "1991"&nbsp;&nbsp;&nbsp; </P> <P>&nbsp;&nbsp;&nbsp; For w= 2014 to 2016</P> <P>&nbsp;&nbsp;&nbsp; ActiveDocument.Fields("Year").select w&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </P> <P>&nbsp;&nbsp;&nbsp; Set PPApp = CreateObject("Powerpoint.Application")</P> <P>&nbsp;&nbsp;&nbsp; PPApp.Presentations.Open "D:\Qlik\AdhocReports\Turnover\Exporttemplate.pptx"&nbsp; 'Here you specify the path of your TEMPLATE</P> <P>&nbsp;&nbsp;&nbsp; 'PPApp.Presentations.Open "C:\Users\Admin\Desktop\Export\Exporttemplate.pptx"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'Here you specify the path of your TEMPLATE&nbsp;&nbsp;&nbsp; </P> <P>&nbsp;&nbsp;&nbsp; PPApp.Visible = True</P> <P>&nbsp;&nbsp;&nbsp; Call PPApp.Activate</P> <P>&nbsp;&nbsp;&nbsp; For i = 0 To ActiveDocument.NoOfSheets - 1&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </P> <P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Set ss= ActiveDocument.GetSheet(i)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </P> <P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; shNa = ss.GetProperties.Name&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </P> <P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ActiveDocument.ActivateSheet(shNa)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </P> <P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ActiveDocument.GetApplication.WaitForIdle()&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </P> <P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Objecte = ActiveDocument.ActiveSheet.GetSheetObjects&nbsp; </P> <P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; For j = LBound(Objecte) To UBound(Objecte)</P> <P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If Objecte(j).GetObjectType = 12 Or Objecte(j).GetObjectType = 15 Or Objecte(j).GetObjectType = 16 Or Objecte(j).GetObjectType = 11 Or Objecte(j).GetObjectType = 6 Or Objecte(j).GetObjectType = 22 Or Objecte(j).GetObjectType = 13 Then</P> <P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; NameObject = Objecte(j).GetObjectID</P> <P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; z=z+1&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </P> <P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If InStr(NameObject,"Hintergrund")=0&nbsp; Then&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </P> <P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Objecte(j).CopyBitmapToClipboard&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </P> <P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; v = 0</P> <P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; For Each s1 In PPApp.ActivePresentation.Slides</P> <P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; v = v + 1</P> <P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Next</P> <P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; For u = 1 To v&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </P> <P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; For Each Shp In PPApp.ActivePresentation.Slides(u).Shapes&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </P> <P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If Shp.Name = NameObject Then</P> <P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ChTop = Shp.Top</P> <P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ChLeft = Shp.Left</P> <P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ChWidth = Shp.Width</P> <P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ChHeight = Shp.Height&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </P> <P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Shp.Delete&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </P> <P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; PPApp.ActivePresentation.Slides(u).Select&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </P> <P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; With PPApp.ActivePresentation.Slides(u).Shapes.PasteSpecial(1)</P> <P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; r=r+1&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </P> <P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .Top = ChTop </P> <P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .Left = ChLeft </P> <P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .Width = ChWidth</P> <P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .Height = ChHeight</P> <P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .name = NameObject&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </P> <P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .Line.Weight = 2</P> <P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .Line.Transparency = 0</P> <P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .Line.Visible = msoTrue</P> <P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .Line.Forecolor.RGB = RGB(100,100,100)</P> <P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .Line.Backcolor.RGB = RGB(200,200,200) </P> <P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .ZOrder 1&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </P> <P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; With .PictureFormat&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </P> <P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .TransparentBackground = True</P> <P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .TransparencyColor = RGB(255,255,255)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </P> <P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End With&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </P> <P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End With&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </P> <P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Exit For</P> <P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If</P> <P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Next&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </P> <P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Next</P> <P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If</P> <P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If&nbsp;&nbsp;&nbsp; </P> <P>&nbsp;&nbsp;&nbsp; Next&nbsp;&nbsp;&nbsp; </P> <P>&nbsp;&nbsp;&nbsp; Next</P> <P>&nbsp;&nbsp;&nbsp; set v=ActiveDocument.Variables("vFinal")</P> <P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; getVariable = v.GetContent.String </P> <P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; filePath = "D:\Qlik\AdhocReports\"&amp;getVariable&amp;".pptx"&nbsp;&nbsp;&nbsp; 'Please adjust according to your local environment</P> <P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'filePath = "C:\Users\Admin\Desktop\Export\generated_Reports\"&amp;getVariable&amp;".pptx"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'Please adjust according to your local environment</P> <P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; PPApp.ActivePresentation.SaveAs filePath</P> <P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; PPApp.ActivePresentation.Close&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </P> <P>&nbsp;&nbsp;&nbsp; Next&nbsp;&nbsp;&nbsp; </P> <P>&nbsp;&nbsp;&nbsp; Next&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </P> <P>msgbox("Juhuuu")&nbsp;&nbsp;&nbsp; </P> <P>End Sub&nbsp; </P> </PRE><P></P><P></P><P>I tried this code with your&nbsp; "Human Capital Analytics.qvw" and its working fine for me. Just copy/paste and run. Aslong as you placed the template to the correct folder and as long as the path to the generated Reports folder exists it should open the template and loops through the selected fields!</P></BODY></HTML> Thu, 27 Oct 2016 13:35:34 GMT Frank_Hartmann 2016-10-27T13:35:34Z dynamically save various reports as pdf with different filename https://community.qlik.com/t5/QlikView/dynamically-save-various-reports-as-pdf-with-different-filename/m-p/1194558#M882703 <HTML><HEAD></HEAD><BODY><P><BR />Dear All,</P><P></P><P>I am trying to automatically save various reports as pdf.&nbsp; Reports should have different file name.&nbsp; May i kindly ask how to do it in qlikview.</P><P></P><P>I appreciate your help.</P><P></P><P>Regards,</P></BODY></HTML> Wed, 25 Nov 2020 16:16:04 GMT https://community.qlik.com/t5/QlikView/dynamically-save-various-reports-as-pdf-with-different-filename/m-p/1194558#M882703 2020-11-25T16:16:04Z Re: dynamically save various reports as pdf with different filename https://community.qlik.com/t5/QlikView/dynamically-save-various-reports-as-pdf-with-different-filename/m-p/1194559#M882704 <HTML><HEAD></HEAD><BODY><P>You could use a specialized tool like <A href="https://community.qlik.com/space/2207">QlikView NPrinting</A>&nbsp; or something like this: <A href="https://community.qlik.com/docs/DOC-7635">Print Report to PDF with open source PDFCreator</A>.</P><P></P><P>- Marcus</P></BODY></HTML> Fri, 30 Sep 2016 08:40:03 GMT https://community.qlik.com/t5/QlikView/dynamically-save-various-reports-as-pdf-with-different-filename/m-p/1194559#M882704 marcus_sommer 2016-09-30T08:40:03Z Re: dynamically save various reports as pdf with different filename https://community.qlik.com/t5/QlikView/dynamically-save-various-reports-as-pdf-with-different-filename/m-p/1194560#M882705 <HTML><HEAD></HEAD><BODY><P>You could also use a vbs-macro in order to export your charts/tables into one or more predefined PP-Templates.</P><P>Inside the vbs-code you could also make the filename of the PP-Template dynamically e.g. adding a timestamp or other logic to the filename and determine where to save the reports. If this is something that fits your needs then let me know for further assistance.</P></BODY></HTML> Fri, 30 Sep 2016 12:36:46 GMT https://community.qlik.com/t5/QlikView/dynamically-save-various-reports-as-pdf-with-different-filename/m-p/1194560#M882705 Frank_Hartmann 2016-09-30T12:36:46Z Re: dynamically save various reports as pdf with different filename https://community.qlik.com/t5/QlikView/dynamically-save-various-reports-as-pdf-with-different-filename/m-p/1194561#M882706 <HTML><HEAD></HEAD><BODY><P>Thanks Marcus / Franc for your reply.</P><P></P><P>Below is the sample of the code:</P><P></P><P>ActiveDocument.Fields("Company").select "Name of Company" </P><P>ActiveDocument.Fields("Year").Select "XXXX"&nbsp;&nbsp; // where XXXX is the year</P><P>ActiveDocument.PrintReport "RP01", "PDFCreator"</P><P></P><P>I have 20 or more listed company and i need to print each company's financial for several years, let say from 1990's to present.&nbsp; where report&nbsp; for each year and each company is required.</P><P></P><P>What i need is the syntax to auto save the report and save it with different filename automatically. </P><P></P><P>Regards,</P></BODY></HTML> Sun, 02 Oct 2016 13:32:26 GMT https://community.qlik.com/t5/QlikView/dynamically-save-various-reports-as-pdf-with-different-filename/m-p/1194561#M882706 2016-10-02T13:32:26Z Re: dynamically save various reports as pdf with different filename https://community.qlik.com/t5/QlikView/dynamically-save-various-reports-as-pdf-with-different-filename/m-p/1194562#M882707 <HTML><HEAD></HEAD><BODY><P>You need to loop through your field. Here is an example for exporting objects to excel - but the logic is the same like your printing-task.</P><P></P><P>- Marcus</P></BODY></HTML> Tue, 04 Oct 2016 07:11:29 GMT https://community.qlik.com/t5/QlikView/dynamically-save-various-reports-as-pdf-with-different-filename/m-p/1194562#M882707 marcus_sommer 2016-10-04T07:11:29Z Re: dynamically save various reports as pdf with different filename https://community.qlik.com/t5/QlikView/dynamically-save-various-reports-as-pdf-with-different-filename/m-p/1194563#M882708 <HTML><HEAD></HEAD><BODY><P>Hi Marcus,</P><P></P><P>Thanks.&nbsp; Please send an example. looping is fine but what i cannot understand is how to save it with different filename (automatically)</P><P></P><P>Regards</P></BODY></HTML> Tue, 04 Oct 2016 07:18:12 GMT https://community.qlik.com/t5/QlikView/dynamically-save-various-reports-as-pdf-with-different-filename/m-p/1194563#M882708 2016-10-04T07:18:12Z Re: dynamically save various reports as pdf with different filename https://community.qlik.com/t5/QlikView/dynamically-save-various-reports-as-pdf-with-different-filename/m-p/1194564#M882709 <HTML><HEAD></HEAD><BODY><P>Dear Frank,</P><P></P><P>Thanks...Please share sample codes as it fits my requirements..</P></BODY></HTML> Tue, 04 Oct 2016 11:07:33 GMT https://community.qlik.com/t5/QlikView/dynamically-save-various-reports-as-pdf-with-different-filename/m-p/1194564#M882709 2016-10-04T11:07:33Z Re: dynamically save various reports as pdf with different filename https://community.qlik.com/t5/QlikView/dynamically-save-various-reports-as-pdf-with-different-filename/m-p/1194565#M882713 <HTML><HEAD></HEAD><BODY><P>Hi Roberto,</P><P>I have attached an example for exporting/creating multiple PP-reports dynamically!</P><P>You will just have to adapt the paths inside the vba code in order to get it work in your environment!</P><P>This macro loops through every sheet of you qlikview document and exports the relevant charts --&gt;</P><P>(for setting up the PPTemplate you will have to copy the relevant chart (e.g. CH01) once into the PP Template and name the object like this: Document\CH01). The macro also loops through the fields "company" and "year" and it creates&nbsp; a new Report everytime when the one loop is finished.</P><P></P><P>hope this gives you an idea on how to get started!</P><P></P><P>Frank</P></BODY></HTML> Tue, 04 Oct 2016 14:08:36 GMT https://community.qlik.com/t5/QlikView/dynamically-save-various-reports-as-pdf-with-different-filename/m-p/1194565#M882713 Frank_Hartmann 2016-10-04T14:08:36Z Re: dynamically save various reports as pdf with different filename https://community.qlik.com/t5/QlikView/dynamically-save-various-reports-as-pdf-with-different-filename/m-p/1194566#M882717 <HTML><HEAD></HEAD><BODY><P>are you on personal edition?</P></BODY></HTML> Tue, 04 Oct 2016 16:08:34 GMT https://community.qlik.com/t5/QlikView/dynamically-save-various-reports-as-pdf-with-different-filename/m-p/1194566#M882717 Frank_Hartmann 2016-10-04T16:08:34Z Re: dynamically save various reports as pdf with different filename https://community.qlik.com/t5/QlikView/dynamically-save-various-reports-as-pdf-with-different-filename/m-p/1194567#M882719 <HTML><HEAD></HEAD><BODY><P>Thanks Frank.&nbsp; I will check the zip file and get back to you.</P><P></P><P>Yes, i am currently using the personal edition.</P></BODY></HTML> Wed, 05 Oct 2016 06:11:39 GMT https://community.qlik.com/t5/QlikView/dynamically-save-various-reports-as-pdf-with-different-filename/m-p/1194567#M882719 2016-10-05T06:11:39Z Re: dynamically save various reports as pdf with different filename https://community.qlik.com/t5/QlikView/dynamically-save-various-reports-as-pdf-with-different-filename/m-p/1194568#M882720 <HTML><HEAD></HEAD><BODY><P>can't open the qv file.&nbsp; license for my qv will be available anytime soon.</P><P></P><P>Frank, i am using 'report' designer available in qlikview, so i don't need to export anything in powerpoint. </P><P></P><P>I have this code (in macro)</P><P></P><P>ActiveDocument.Fields("Company").select "Name of Company" </P><P>ActiveDocument.Fields("Year").Select "XXXX"&nbsp;&nbsp; // where XXXX is the year</P><P>ActiveDocument.PrintReport "RP01", "PDFCreator"</P><P></P><P></P><P></P><P>ActiveDocument.Fields("Company").select "Name of Company1" </P><P>ActiveDocument.Fields("Year").Select "XXXX"&nbsp;&nbsp; // where XXXX is the year</P><P>ActiveDocument.PrintReport "RP01", "PDFCreator"</P><P></P><P></P><P>ActiveDocument.Fields("Company").select "Name of Company2" </P><P>ActiveDocument.Fields("Year").Select "XXXX"&nbsp;&nbsp; // where XXXX is the year</P><P>ActiveDocument.PrintReport "RP01", "PDFCreator"</P><P></P><P></P><P></P><P>ActiveDocument.Fields("Company").select "Name of Company3" </P><P>ActiveDocument.Fields("Year").Select "XXXX"&nbsp;&nbsp; // where XXXX is the year</P><P>ActiveDocument.PrintReport "RP01", "PDFCreator"</P><P></P><P></P><P>and so on and sor forth.</P></BODY></HTML> Wed, 05 Oct 2016 06:17:27 GMT https://community.qlik.com/t5/QlikView/dynamically-save-various-reports-as-pdf-with-different-filename/m-p/1194568#M882720 2016-10-05T06:17:27Z Re: dynamically save various reports as pdf with different filename https://community.qlik.com/t5/QlikView/dynamically-save-various-reports-as-pdf-with-different-filename/m-p/1194569#M882721 <HTML><HEAD></HEAD><BODY><P>Hi</P><P></P><P>You can achieve this using NPrinting. You can even email those reports to various users as well.</P><P></P><P>Ragards</P><P>Harish</P></BODY></HTML> Wed, 05 Oct 2016 06:28:11 GMT https://community.qlik.com/t5/QlikView/dynamically-save-various-reports-as-pdf-with-different-filename/m-p/1194569#M882721 harishkumarg 2016-10-05T06:28:11Z Re: dynamically save various reports as pdf with different filename https://community.qlik.com/t5/QlikView/dynamically-save-various-reports-as-pdf-with-different-filename/m-p/1194570#M882722 <HTML><HEAD></HEAD><BODY><P>i am not familia with report designer.</P><P>but if the following video is what you want to achieve i will help you setting up the qvw.</P><P></P><P><IMG __jive_id="139733" alt="Aufnahme_2016_10_05_18_11_42_521.gif" class="jive-image image-1" height="289" src="https://community.qlik.com/legacyfs/online/139733_Aufnahme_2016_10_05_18_11_42_521.gif" style="height: 288.769px; width: 513px;" width="513" /></P></BODY></HTML> Wed, 05 Oct 2016 15:52:32 GMT https://community.qlik.com/t5/QlikView/dynamically-save-various-reports-as-pdf-with-different-filename/m-p/1194570#M882722 Frank_Hartmann 2016-10-05T15:52:32Z Re: dynamically save various reports as pdf with different filename https://community.qlik.com/t5/QlikView/dynamically-save-various-reports-as-pdf-with-different-filename/m-p/1194571#M882723 <HTML><HEAD></HEAD><BODY><P>Thanks Harish,</P><P></P><P>But i don have NPrinting...</P></BODY></HTML> Thu, 06 Oct 2016 06:53:00 GMT https://community.qlik.com/t5/QlikView/dynamically-save-various-reports-as-pdf-with-different-filename/m-p/1194571#M882723 2016-10-06T06:53:00Z Re: dynamically save various reports as pdf with different filename https://community.qlik.com/t5/QlikView/dynamically-save-various-reports-as-pdf-with-different-filename/m-p/1194572#M882724 <HTML><HEAD></HEAD><BODY><P>Hi Frank,</P><P></P><P>This is exactly what i need.. please send me the syntax for me to try ..</P><P></P><P>thanks...</P></BODY></HTML> Thu, 06 Oct 2016 06:54:59 GMT https://community.qlik.com/t5/QlikView/dynamically-save-various-reports-as-pdf-with-different-filename/m-p/1194572#M882724 2016-10-06T06:54:59Z Re: dynamically save various reports as pdf with different filename https://community.qlik.com/t5/QlikView/dynamically-save-various-reports-as-pdf-with-different-filename/m-p/1194573#M882725 <HTML><HEAD></HEAD><BODY><P>have a look at attached txt file</P><P></P><P>hope this helps!</P></BODY></HTML> Fri, 07 Oct 2016 09:55:20 GMT https://community.qlik.com/t5/QlikView/dynamically-save-various-reports-as-pdf-with-different-filename/m-p/1194573#M882725 Frank_Hartmann 2016-10-07T09:55:20Z Re: dynamically save various reports as pdf with different filename https://community.qlik.com/t5/QlikView/dynamically-save-various-reports-as-pdf-with-different-filename/m-p/1194574#M882726 <HTML><HEAD></HEAD><BODY><P>Thanks Frank.</P><P></P><P>I will check and revert.</P><P></P><P>Regards,</P></BODY></HTML> Sun, 09 Oct 2016 11:19:25 GMT https://community.qlik.com/t5/QlikView/dynamically-save-various-reports-as-pdf-with-different-filename/m-p/1194574#M882726 2016-10-09T11:19:25Z Re: dynamically save various reports as pdf with different filename https://community.qlik.com/t5/QlikView/dynamically-save-various-reports-as-pdf-with-different-filename/m-p/1194575#M882727 <HTML><HEAD></HEAD><BODY><P>Hi Frank,</P><P></P><P>Please advise the part of the&nbsp; syntax where it's auto save, i am thinking of using only that part in my pdf creator.</P></BODY></HTML> Tue, 11 Oct 2016 06:14:55 GMT https://community.qlik.com/t5/QlikView/dynamically-save-various-reports-as-pdf-with-different-filename/m-p/1194575#M882727 2016-10-11T06:14:55Z Re: dynamically save various reports as pdf with different filename https://community.qlik.com/t5/QlikView/dynamically-save-various-reports-as-pdf-with-different-filename/m-p/1194576#M882728 <HTML><HEAD></HEAD><BODY><P>I have several objects that needs to be exported.&nbsp; If you could help me the steps on how to start a template in ppt putting in mind that several objects in one slides is required.&nbsp; </P></BODY></HTML> Tue, 11 Oct 2016 06:16:49 GMT https://community.qlik.com/t5/QlikView/dynamically-save-various-reports-as-pdf-with-different-filename/m-p/1194576#M882728 2016-10-11T06:16:49Z Re: dynamically save various reports as pdf with different filename https://community.qlik.com/t5/QlikView/dynamically-save-various-reports-as-pdf-with-different-filename/m-p/1194577#M882729 <HTML><HEAD></HEAD><BODY><P>For preparing the template you will just have to copy the charts and paste them into the powerpoint template.</P><P>then just make sure that if your first Qlikview Chart has e.g. the ObjectID = <STRONG>Chart</STRONG>&nbsp; then you have to name the image in</P><P>Powerpoint = <STRONG>Document\Chart</STRONG> and if your second Qlikview Chart has the ObjectID = <STRONG>newChart</STRONG>&nbsp; then you have to name</P><P>this image in Powerpoint= <STRONG>Document\newChart</STRONG></P><P>See attached video for instructions.</P><P></P><P><IMG __jive_id="140326" alt="Aufnahme_2016_10_11_21_07_46_533.gif" class="jive-image image-1" src="https://community.qlik.com/legacyfs/online/140326_Aufnahme_2016_10_11_21_07_46_533.gif" style="height: 349px; width: 620px;" /></P><P></P><P>hope this helps!</P></BODY></HTML> Tue, 11 Oct 2016 19:21:43 GMT https://community.qlik.com/t5/QlikView/dynamically-save-various-reports-as-pdf-with-different-filename/m-p/1194577#M882729 Frank_Hartmann 2016-10-11T19:21:43Z