4 Replies Latest reply: Apr 3, 2017 6:55 AM by sagar kharpude RSS

    Border of Objects in Macros

    sagar kharpude

      Hi,

       

      I am using the VBScript macros to export the objects(Text boxes/Chart) to PPT. Export is working fine but border of the object is not coming in PPT. IS there any code to display the border?

       

      Thanks

      Sagar

        • Re: Border of Objects in Macros
          Tim Driller

          did you try this?

           

          set myObject = ActiveDocument.GetSheetObject("MB01")

          set myObjectProperties = myObject.GetProperties

          myObjectProperties.Layout.Style = 0 '0=Borders 1=Light

          myObject.SetProperties myObjectProperties

            • Re: Border of Objects in Macros
              sagar kharpude

              Hi Tim,

               

              I am using below code.

               

              ActiveDocument.GetSheetObject("TX293").CopyBitmapToClipboard 

              ActiveDocument.GetApplication.WaitForIdle

                PPSlide.Shapes.Paste 

                PPSlide.Shapes(PPSlide.Shapes.Count).Top = 2

                PPSlide.Shapes(PPSlide.Shapes.Count).Left = 10

                PPSlide.Shapes(PPSlide.Shapes.Count).Width = 85 

                PPSlide.Shapes(PPSlide.Shapes.Count).Height = 55

                ActiveDocument.GetApplication.WaitForIdle

               

              Where I can insert your Layout code in my above code.

               

              Thanks