Exporting An Excel Range From Excel To PowerPoint Using VBA

Поділитися
Вставка
  • Опубліковано 29 січ 2025

КОМЕНТАРІ • 11

  • @ShikhaSharma-qw4px
    @ShikhaSharma-qw4px 5 років тому +1

    This is great. Thank you so much.

  • @shueybamin5244
    @shueybamin5244 4 роки тому +2

    HI, how do paste it as an Image in Powerpoint? Also How do I paste this table into the next slide of the same powerpoint each time I run the VBA?

    • @SigmaCoding
      @SigmaCoding  4 роки тому +1

      I would check out this video, I cover that topic in more detail.
      ua-cam.com/video/HGab8RbMeo0/v-deo.html
      Also I have another video that covers pasting as different data types.

    • @shueybamin5244
      @shueybamin5244 4 роки тому

      @@SigmaCoding Thank you! Will definitely check this out 😁

  • @vickimoore7619
    @vickimoore7619 4 роки тому

    I am getting a runtime error 424 Object required. I am not using a table, but a mini financial statement, is there another method? I also have 33 worksheets in the workbook that need exported, am I using the correct script?

  • @koushikc15
    @koushikc15 3 роки тому

    how to copy multiple rows of text from excel in PowerPoint not as an image but as text only

  • @njsimmons82
    @njsimmons82 4 роки тому

    How do you paste it and keep source formatting?

    • @SigmaCoding
      @SigmaCoding  4 роки тому

      You can paste an OLE Object that's usually the easiest. The other way which can be very volatile is the following:
      'Create a new slide in the Presentation, set the layout to blank, and paste range on to the newly added slide.
      Set PPTSlide = PPTPres.Slides.Add(1, ppLayoutBlank)
      'WARNING THIS METHOD IS VERY VOLATILE, PAUSE THE APPLICATION TO SELECT THE SLIDE
      For i = 1 To 5000: DoEvents: Next
      PPTSlide.Select
      'WARNING THIS METHOD IS VERY VOLATILE, PAUSE THE APPLICATION TO PASTE THE OBJECT
      For i = 1 To 5000: DoEvents: Next
      PPTApp.CommandBars.ExecuteMso "PasteSourceFormatting"
      PPTApp.CommandBars.ReleaseFocus
      'PASTE USING THE EXCUTEMSO METHOD - VERY VOLATILE
      'Paste As Source Formatting
      'PPTApp.CommandBars.ExecuteMso "PasteSourceFormatting"
      'Paste as Destination Theme
      'PPTApp.CommandBars.ExecuteMso "PasteDestinationTheme"
      'Paste as Embedded Object
      'PPTApp.CommandBars.ExecuteMso "PasteAsEmbedded"
      'Paste Excel Table Source Formatting
      'PPTApp.CommandBars.ExecuteMso "PasteExcelTableSourceFormatting"
      'Paste Excel Table Destination Theme
      'PPTApp.CommandBars.ExecuteMso "PasteExcelTableDestinationTableStyle"

  • @ShikhaSharma-qw4px
    @ShikhaSharma-qw4px 5 років тому

    It would be great if you could help me out on thsi-
    I have max 20 products this week (this number of products will change every week.( For that i have used counta so that i know total number of products) and excel should auto change the number of products say 1 (in a fixed cell) copy the range and paste on slide. It should auto change number to 2 in excel and again copy and paste on slide by creating new one. Again auto change the number to 3 and so on until it reaches to total number of products (i. e. 20 this week)

  • @vicky9892
    @vicky9892 4 роки тому

    Hello, can you help me here please. Exporting Multiple Excel sheets/tabs with same range To PowerPoint Using VBA