2/14/2023 0 Comments Excel vba on error goto resume![]() ![]() Rng_Sht_Name = Exl_WB.Names(Rng_Name).ĬopyRange.CopyPicture xlScreen, xlPicture Set CopyRange = Exl_WB.Names(Rng_Name).RefersToRange PPT_No = 15+ K ' Change as per your requirement If InStr(1, Rng_Name, "PPT") > 0 And InStr(1, Rng_Name, "!") = 0 Then Set New_PowerPoint = New PowerPoint.Application ![]() Set New_PowerPoint = GetObject(, "PowerPoint.Application") OutPut_Name = ThisWorkbook.Sheets("C_PANEL").Range("B1").Value Save_Path = ThisWorkbook.Sheets("C_PANEL").Range("B3").Value PPT_File = ThisWorkbook.Sheets("C_PANEL").Range("B2").Value Please edit this Macro before using as per your Requirement. ![]() The following Macro is designed to Print the Named Ranges whose names like PPT_01,PPT_02,PPT_03.PPPT_XX., of This Workbook on Power Point Presentation Slides of specified PowerPoint Template Deck which is Pre-designed. Macro to Copy and Print each Named Range on a Power Point Presentation Slides ![]()
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |