One such alert is shown below - You can turn off these notifications while the code is running and then turn them on once the code is done. To prevent the screen from flickering, we enter To copy this code into your file’s code window, press Alt F11 on your keyboard. VBA programs are known to save a lot of time and now this post is to save further time. * An operation has been performed that forced Excel to calculate page breaks.
Essentially the loop needs to look in each worksheet and if there's a '1' in cell S1 to then copy & paste the range 'Print_Area' into a blank Power Point slide with a slide for each instance. Paste Special Data Type:=10 '2 = pp Paste Enhanced Metafile Set my Shape = my Slide. Screen Updating = False 'Create a New Presentation Set my Presentation = Power Point App. Add 'Loop through each chart in the Excel worksheet and paste them into the Power Point For Each ws In Active Workbook. Range("S1") = "1" Then 'Add a slide to the Presentation Set my Slide = my Presentation. Add(1, pp Layout Blank) '11 = pp Layout Title Only 'Copy Excel Range rng. There are several threads discussing the same issue for various MS Office Products, e.g.: https://social.technet...um=officeitpro There are solutions capable to remove this hidden text during the conversion to PDF. Alternative Text = "" Next End With Next End With Application. Unfortunately, there's still no solution how to remove these hidden alternative text from the Word document itself, except for clicking manually through every image in the document. Regards, Sergey That's something you're getting via drag & drop - it's not something that occurs if you use Insert|Picture. Failing that, you could use a macro to delete the Alt Text, but that might have deleterious effects if some objects require some Alt Text for whatever reason. Using Insert-Picture is slightly complicated in my case due to the complicated folder structure of the project. Screen Updating = True Msg Box "Finished updating", vb OKOnly End Sub Sub Kill Alt Text() Application. Range ' Catch application window title to later activate Excel again apptitle = application. Name) = "EQSUBS" Then ' Call createappdpage End If If sr.