<?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 Hi David,
 
Open the default… in Product Forum</title>
    <link>https://community.blueprism.com/t5/Product-Forum/Code-stage-From-VBA-to-Blue-Prism/m-p/71404#M24009</link>
    <description>Hi David,
&amp;nbsp;
Open the default excel VBO and add an page new page then insert code stage to use the code.
&amp;nbsp;
Normally when you add an code stage you need to add global functions to avoid this the global functions are already in the Excel vbo</description>
    <pubDate>Fri, 20 Jul 2018 10:46:00 GMT</pubDate>
    <dc:creator>Vijaya_KumarA</dc:creator>
    <dc:date>2018-07-20T10:46:00Z</dc:date>
    <item>
      <title>Code stage : From VBA to Blue Prism</title>
      <link>https://community.blueprism.com/t5/Product-Forum/Code-stage-From-VBA-to-Blue-Prism/m-p/71403#M24008</link>
      <description>Dear all,

I'm already trying to automate some reporting by copying and pasting some graphs and pivot tables from an Excel to a Powerpoint.&amp;nbsp;

I've done it first through VBA but I believe it would be a great use case to do it using RPA. I'm not a great coder so when I tried to copy-paste my code from VBA to a code stage in BP of course I had a lot of mistakes. Could you please support me in transforming this VBA code in a VB code that works?&amp;nbsp;

&amp;nbsp;

Thank you very much.

Sub Copy()
Dim PPT As PowerPoint.Application
Dim PPTFile As PowerPoint.Presentation
Dim ActiveSlide As PowerPoint.Slide

Set PPT = CreateObject("PowerPoint.Application")
PPT.Visible = True
PPT.Presentations.Open Filename:="C:\Users\xxx\Documents\Reporting.PPTX"

Set PPTFile = PPT.ActivePresentation
PPT.ActiveWindow.ViewType = ppViewSlide

&amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; Workbooks("Reporting.xlsm").Activate
&amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; ActiveWorkbook.Sheets("Dashboard").ChartObjects("Chart_1).Copy
&amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; With PPTFile.Slides(5)
&amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; .Select
&amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; .Shapes.Paste
&amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; .Shapes("Chart_1").Select
&amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; .Application.ActiveWindow.Selection.ShapeRange.Left = 52.66575
&amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; .Application.ActiveWindow.Selection.ShapeRange.Top = 136.2691
&amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; .Application.ActiveWindow.Selection.ShapeRange.Height = 242.2116
&amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; .Application.ActiveWindow.Selection.ShapeRange.Width = 470.5457

&amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; End With</description>
      <pubDate>Thu, 19 Jul 2018 18:38:00 GMT</pubDate>
      <guid>https://community.blueprism.com/t5/Product-Forum/Code-stage-From-VBA-to-Blue-Prism/m-p/71403#M24008</guid>
      <dc:creator>DavidAssouline</dc:creator>
      <dc:date>2018-07-19T18:38:00Z</dc:date>
    </item>
    <item>
      <title>Hi David,
 
Open the default…</title>
      <link>https://community.blueprism.com/t5/Product-Forum/Code-stage-From-VBA-to-Blue-Prism/m-p/71404#M24009</link>
      <description>Hi David,
&amp;nbsp;
Open the default excel VBO and add an page new page then insert code stage to use the code.
&amp;nbsp;
Normally when you add an code stage you need to add global functions to avoid this the global functions are already in the Excel vbo</description>
      <pubDate>Fri, 20 Jul 2018 10:46:00 GMT</pubDate>
      <guid>https://community.blueprism.com/t5/Product-Forum/Code-stage-From-VBA-to-Blue-Prism/m-p/71404#M24009</guid>
      <dc:creator>Vijaya_KumarA</dc:creator>
      <dc:date>2018-07-20T10:46:00Z</dc:date>
    </item>
    <item>
      <title>Hi,
Thank you for your…</title>
      <link>https://community.blueprism.com/t5/Product-Forum/Code-stage-From-VBA-to-Blue-Prism/m-p/71405#M24010</link>
      <description>Hi,
Thank you for your answer. I will keep working on it then !&amp;nbsp;</description>
      <pubDate>Tue, 24 Jul 2018 13:08:00 GMT</pubDate>
      <guid>https://community.blueprism.com/t5/Product-Forum/Code-stage-From-VBA-to-Blue-Prism/m-p/71405#M24010</guid>
      <dc:creator>DavidAssouline</dc:creator>
      <dc:date>2018-07-24T13:08:00Z</dc:date>
    </item>
  </channel>
</rss>

