PowerPoint VBAでファイルを開く時に発生するイベントを設定する

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

2023-04-20

パワーポイントを開く時に、読み取り専用か否かを選択出来るようにするvba

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…

2023-04-18

VBScriptで指定フォルダ内のファイルを名前順に並び替える

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

2023-04-16

cubePDFを使ってpdfファイルをマージするVBScript

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

2023-04-14

Excel VBAを使用してファイルオープンダイアログから指定したフォルダ内のPowerPointファイルを任意に選択し、すべてのテキストを黒に変更し、PDFに変換する

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 …

2023-04-14

パワーポイントで全てのテキストを一括選択し、文字色を黒に変更する

パワーポイントで全てのテキストを一括選択するための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…

2023-04-14

Excel VBAから指定フォルダ内のPDFファイルを複数選択し、それらをCubePDFでマージする

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

2023-04-14

Excel VBAで指定フォルダから複数のパワーポイントファイルを選択し、それらを白黒PDFで印刷する

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…

2023-04-13

パワーポイント　外部リンク

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

2023-04-13

cubePDFを使ってpdfファイルをマージするexcelvba

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

2023-04-13

excel vbaから指定フォルダのパワーポイントファイルを複数選択し、選択したファイルを白黒pdf印刷して、そのあとそれらのpdfファイルをcubepdfでマージする

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

2023-04-13

Excel VBAから指定フォルダのパワーポイントファイルを複数選択し、白黒PDF印刷を行うサンプルコード

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

2022-02-15

チバリヨの勝ち方

朝一10回回して一度もチェリーが出なければ台移動チェリーが出ない台はいくら回しても出ない予告音でスイカばかり出る台はやめるよくあるボーナス前兆遅れチェリー無音スタートサイドランプ矛盾深追いしない 400以上ハマった台はハマり後REGの場合が…

2021-07-21

鬼舞辻無惨のパワハラ会議を現代風に訳してみた

鬼舞辻無惨が絶対的な立場をいいことに、下弦の鬼たちをバッタバッタと始末していったいわゆるパワハラ会議。学生さん、キッズの皆さん、大正時代のお伽話だと思っていませんか？現代社会でも無いとは言い切れません。言い方が変わっただけです。＜舞台…

#鬼滅の刃 #パワハラ会議 #鬼舞辻無惨

2020-01-13

今日の買いたいMONOlist

ipadでお絵描きしたい、子供の絵を残したい～こだわらずにササっと描いてたくさん残す～ Apple iPad (10.2インチ, Wi-Fi, 32GB) - スペースグレイ(最新モデル) 発売日: 2019/10/02 メディア: Personal Computers apple アップルApple Pencil 第2世代 MU8F2J…

2020-01-12

今日の買いたいMONOlist

ダイニングテーブルが狭くなってきたから買い替えたい～美しい白グロス仕上げダイニングテーブルセット～ダイニングテーブル 5点セット伸長式伸縮 4人掛けリビングカンティレバーチェアダイニング5点セット選べる2色ホワイトブラック白黒モノト…

2020-01-12

今日の買いたいMONOlist

ゲーミングノートpc ～pc買い替えるついでにゲーミングノートを買う～【新品】ASUS(エイスース) ゲーミングノートPC ROG STRIX GL504GS SCAR II GL504GS-I7G1070 [Core i7・15.6インチ・メモリ 16GB・GTX 1070] (GL504GSI7G1070) [ゲーミングPC ゲーミング …