Get-ChildItemコマンドレットの結果をクリップボード経由でワークシートに貼り付けたほうが早いけど、Excel VBAを使用しての方法を考える。 # PowerShell 5.1, Windows 11 (2024年4月頃) $fileInfos = Get-ChildItem -File -Force -Recurse -Depth 1 -Litera…

VBA: WshShell.Exec PowerShell: WshShell.Exec PowerShell: ProcessStartInfo VBA: WshShell.Exec Excelマクロから簡単にPowerShellの出力結果を取得する方法を考える ' Excel 2019, Windows 11 (2024年4月頃) ' 参照設定 ' Windows Script Host Object Mod…

メモ Excel VBA での角括弧[ ]はExcel.Application.Evaluateメソッド PowerPoint VBA で角括弧[ ]を使用する場合は Microsoft Excel xx.x Object Library を参照設定 参考資料リンク Guidelines and examples of array formulas - Microsoft Support Refer t…

メモ FileInfo.DirectoryNameプロパティ相当のつもりで Convert-Path -LiteralPath $_.PSParentPath を使用 Group-Object でグループ化したオブジェクトを List<GroupInfo>.Sort で並べ替え 使い捨てマクロ ファイル名"PowerShell.exe"の検索順序は気にしない ' Excel 2</groupinfo>…

メモ 使い捨てスクリプト 選択されたスタンプのAPを表示 スタンプの貼り付け VBAでパスを取得(app.getPath) 過去記事 メモ スタンプの座標指定で困った場合の対応案 ページを再印刷するか書き出した画像からPDFを新規作成する ページ回転を0度にしてページボ…

メモ 参考資料リンク 使い捨てスクリプト JavaScript IAC 過去記事 メモ 上位レベルのしおり(doc.bookmarkRoot.children)の名前を変更する 使い捨てJavaScript: しおりの名前を replace(RegExp, newSubstr) で置き換える 使い捨てVBA: セル選択範囲の文字列…

余白の寸法が分かっている場合 用紙を折り曲げたときの余白を考慮する場合 余白の寸法を検討する場合 用紙の折り曲げを想定しない場合 Excelのユーザー定義関数。数式の式変形が面倒な場合は ゴール シーク で数値を見つける。 ' Excel 2019, Windows 11 ' …

参考資料リンク 使い捨てスクリプト JavaScript IAC 下記の結合と分割を繰り返していると しおりの階層 が深くなるので、上位レベル以外の しおり を削除する。 ファイルを結合 → 常にPDFファイルにしおりを追加 ページを整理 → 分割 → 上位レベルのしおり →…

メモ 用紙サイズを変更する方法の例 jso.setPageBoxes jso.newPage + jso.addWatermarkFromFile + AcroPDDoc.DeletePages 加工後のPDFに不都合な点は無いか十分に確認してください 参考資料リンク Using OLE — Acrobat-PDFL SDK: Interapplication Communica…

メモ 選択されたセルについて「無効なデータが入力されたらエラー メッセージを表示する」のチェックを外す 選択されたセルについて「無効なデータが入力されたときに表示するエラー メッセージ」の「スタイル」を「情報」に変更する 使い捨てマクロ ' Excel…

メモ 表形式の値を列形式にする 使い勝手はユーザー定義関数(配列数式)よりもマクロのほうが良い気がします 表形式 文字列11 文字列12 文字列13 文字列21 文字列22 文字列23 文字列31 文字列32 文字列33 列形式 値 行 列 文字列11 1 1 文字列12 1 2 文字列13…

メモ 透かしを追加(ファイル) 使い捨てスクリプト ' Excel 2019, Acrobat Standard DC (2022年4月頃), Windows 11 ' 参照設定 ' Acrobat (Adobe Acrobat 10.0 Type Library) Option Explicit #Const DEBUG_ = False Public DIPath As String Public SourcePa…

目次 目次 メモ 使い捨てスクリプト Acrobat JavaScript VBA メモ 透かしを追加(テキスト) 使い捨てスクリプト Acrobat JavaScript // Acrobat Standard DC (2022年3月頃), Windows 11 // JavaScript デバッガー の コンソール から実行 (() => { this.addWa…

目次 目次 使い捨てスクリプト 注釈でテキストボックスと長方形を追加 (AddNewAnnot) フラット化 (flattenPages) 過去記事 使い捨てスクリプト 注釈でテキストボックスと長方形を追加 (AddNewAnnot) PDFを開いたウィンドウを表示させた状態でマクロを実行し…

使い捨てマクロ セルのダブルクリックで文字☑をセルに挿入 セルの右クリックで文字☐をセルに挿入 Shapes.AddFormControl でワークシートに xlCheckBox を追加 ' Excel 2019, Windows 11 Option Explicit Private Sub Worksheet_BeforeDoubleClick(ByVal Targ…

メモ その場しのぎで紙面上の文書を平行移動させて余白を調整する場合に便利だと思います。 使い捨てスクリプト PDFを開いたウィンドウを表示させた状態でマクロを実行してください 図形に「マクロの登録」すると効率的に実行できます ' Excel 2019, Acrobat…

メモ AcroPDDoc.InsertPagesの練習 使い捨てスクリプト 表示中のPDFファイル(pdfPDDocActive)のページ順序を 12345 とする 保存されている別のPDFファイル(pdfPDDocSource)のページ順序を ABCDE とする pdfPDDocActive に pdfPDDocSource を差し込んで 1A2B3…

メモ CropBoxのサイズをExcelシートに表示して、印刷時の用紙選択ミス削減に役立てる。 使い捨てスクリプト PDFをタブに表示させた状態でマクロを実行してください ' Excel 2019, Acrobat Standard DC (2022年3月頃), Windows 11 ' 参照設定 ' Acrobat (Adob…

プロパティのアクション IAC VBA PowerShell %APPDATA%にあるフォルダに保存 参考資料リンク 過去記事 プロパティのアクション バージョンは Acrobat Standard DC (2022年2月頃)、Windows 11。 「JavaScriptを実行」で console.show(); を実行する しおりの…

メモ JavaScript デバッガーを表示するのにショートカットキーや しおり を使用してはいけない場合、OLEでJSObjectを経由して console.show() を行う方法を考える。 参考資料リンク Creating .NET and COM Objects New Object - PowerShell | Microsoft Docs…

メモ Excelセルの値を座標としてPowerPointスライドに描画する使い捨てマクロ。 選択されているExcelセル範囲 Excel.Application.ActiveWindow.RangeSelection 起動しているPowerPoint.Applicationの取得 VBA.Interaction.GetObject(Class:="PowerPoint.Appl…

メモ AddCurveで雲枠の一部分に見えそうな曲線を描くマクロ。 参考資料リンク Shapes.AddCurve method (PowerPoint) | Microsoft Docs 使い捨てマクロ ' PowerPoint 2013, Windows 10 Option Explicit ' マクロの表示(Alt+F8)で選択しやすくする Public Sub …

メモ ファイル名"バインダー1_Part1.pdf"といった連番ファイルだけが入ったフォルダ内のファイル名をワークシートに書き出す使い捨てExcelマクロ。連番部分の抽出に便利。 ファイル名の文字列の分割に VBScript_RegExp_55.RegExp を使っているだけ。Excelマ…

メモ ExecutionPolicy を RemoteSigned として PowerShell_ISE.exe を起動するだけのショートカットを作成するVBAとPowerShellスクリプト PowerShell_ISE.exe のパラメーターは気にしない 参考資料リンク WshShortcut Object | Microsoft Docs Creating .NET…

メモ Docs の Call operator & と CallByName function を参照してください。 参考資料リンク about Operators - PowerShell | Microsoft Docs CallByName function (Visual Basic for Applications) | Microsoft Docs 使い捨てスクリプト ショートカット(.l…

以下の使い方の確認用の練習用マクロです。 PageSetup Range.Value Shape.TextFrame2.TextRange.Text ' Excel 2019 ' Windows 10 Option Explicit Public Sub Main() Dim app As Excel.Application Dim wb As Excel.Workbook Dim ws As Excel.Worksheet Dim …

メモ 同じフォルダ内にある大量のファイルに対して、ある程度の融通を利かせてリネームしたい場合に便利かもしれません。Excelでマクロを使うよりも、PowerShellの実行結果をExcelシートに貼り付けて加工するほうが作業的に早い気もします。 使い捨てマクロ …

メモ PowerPointのスライドにAddPolylineでフリーフォームを描画する。 フリーフォームにおける頂点の座標は、GetObjectとRangeSelectionで起動中のExcelから取得する。 参考資料リンク GetObject function (Visual Basic for Applications) | Microsoft Doc…

大量のファイルに対して、ある程度の融通を利かせてリネームしたい場合に便利かもしれません。例えば新版PDFと旧版PDFのページを1つのPDFに交互に並び替えたい場合に役立つと思います。 ・PDF編集ソフトでPDFのページを分割 ・分割されたPDFのファイル名を調…

メモ A4タテ用紙とA3ヨコ用紙のみで構成された書類があったとする。 この書類の修正対比資料の下地をPowerPoint 2013で作成したい。 作成方法としてはスライドのサイズをA3ヨコにして、書類がA4タテ用紙の場合はスライドマスターの左右に配置、書類がA3ヨコ…