Sub ConvertSelectedPowerPointToPDF()Dim ppApp As ObjectDim ppPres As ObjectDim ppSlide As ObjectDim shp As ObjectDim txtRng As ObjectDim fileExtension As StringDim fileName As StringDim filePath As StringDim pdfPath As StringDim objFSO As …

パワーポイントで全てのテキストを一括選択するためのVBAマクロ Sub SelectAllText()Dim sld As SlideDim shp As ShapeDim txtRng As TextRangeFor Each sld In ActivePresentation.SlidesFor Each shp In sld.ShapesIf shp.HasTextFrame ThenSet txtRng = s…

Sub MergePDFsUsingCubePDF()Dim FolderPath As StringDim FileList() As StringDim i As IntegerDim PDFFileName As StringDim OutputFilePath As String'指定フォルダを選択するWith Application.FileDialog(msoFileDialogFolderPicker).AllowMultiSelect …

Office 365に対応しています。 Sub PrintPowerPointToPDF()Dim ppApp As Object ' PowerPoint ApplicationDim ppPres As Object ' PowerPoint PresentationDim ppSlide As Object ' PowerPoint SlideDim fileDialog As Object ' FileDialog objectDim select…