PowerPoint VBAでファイルを開く時に発生するイベントを設定するには、以下の手順を実行します。 PowerPointを開き、VBE（Visual Basic Editor）を開きます。VBEの左側のプロジェクトウィンドウで、開始したいプレゼンテーションを選択します。VBEの上部にあ…

PowerPointを読み取り専用モードで開くかどうかを選択する。 Sub Auto_Open()Dim sReadOnly As StringsReadOnly = MsgBox("Do you want to open this file in read-only mode?", vbYesNo, "Read-Only?")If sReadOnly = vbYes ThenActivePresentation.FollowH…

' 指定フォルダのパスstrFolderPath = "C:\Users\username\Documents" ' 指定フォルダ内のファイルを取得Set objFSO = CreateObject("Scripting.FileSystemObject")Set objFolder = objFSO.GetFolder(strFolderPath)Set objFiles = objFolder.Files ' ファイ…

VBScript（.vbs） ＜準備＞ 同じフォルダにtemp.pdfを同梱 Dim fso, scriptFolder, parentFolderSet fso = CreateObject("Scripting.FileSystemObject")scriptFolder = fso.GetParentFolderName(WScript.ScriptFullName)parentFolder = fso.GetParentFolderN…

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…

パワーポイントでは、外部ファイルとのリンクを作成し、リンク先の内容が変更された場合に、自動的に更新される機能があります。 外部ファイルとのリンクを作成するには、まず、リンク先のファイルを開きます。次に、テキストボックスに用語や定義を入力し、…

以下のVBAコードを使用して、ファイル選択ダイアログを表示してPDFファイルが格納されているフォルダを選択できるようにすることができます。このコードでは、Excelの標準ダイアログを使用してフォルダを選択しています。 Sub MergePDFsUsingCubePDF() ' cub…

以下は、指定したフォルダから選択されたパワーポイントファイルを白黒PDFで印刷し、それらのPDFファイルをcubepdfでマージするVBAコードの例です。事前にcubePDFをインストールしておく必要があります。 Sub MergePowerPointPDFs() '必要に応じて、cubePDF…

以下は、Excel VBAから指定フォルダのパワーポイントファイルを複数選択し、白黒PDF印刷を行うサンプルコードです。事前にcubePDFのプリンターがインストールされていることが前提です。 Sub PrintPPTtoPDF() Dim PPTFolder As String Dim PPTFile As String…