目標 パワーポイントで「現在のページ／総ページ数」と表示したい 問題点 総ページ数を表示する方法が、マスタスライドに手書きしか見つからない　＠Google先生 対処 マクロ組んでみる １．事前準備 マスタスライドを作る マスタのレイアウト（？）から「ページ数（<#>）」を作る 2番目の隣に総ページ数用のテキストボックスを作る ※テキストボックスの名前の調べ方 つ［PowerPoint］：シェイプの名前をメッセージボックスで表示する - Agrius_Akitaの日記 ２．マクロ ' 「ページ数／総ページ数」を表示するマクロ Sub PageNumber() '' マクロ処理を画面表示しない 'Application.ScreenUpdating = False ' ――――― 文字列準備 ――――― Dim Slash As String Dim TotalPage As Long Dim

ExcelをHTMLに変換して使ってる、見栄えはいいし、編集楽だしね 問題は「ふりがな」が残って検索できないとかサイズが無駄に大きくなること 例） Excelで「今日は晴れ」と入力、HTMLで保存 HTMLの「今日は晴れ」をメモ帳などにコピペすると 「今日キョウは晴ハれ」となってしまう ふりがなを消すマクロ動かしてから保存すれば解決した Sub Ruby_Del() '' マクロ実行中の画面描写をOFF Application.ScreenUpdating = False '' A列を選択　（A:A＝選択列番号） Columns("A:A").Phonetics.Delete // '' シート全体を選択する場合　（AAA＝シート名） // Sheets("AAA").Phonetics.Delete // '' A1セルを選択する Range("A1").Select '' 画面の更新を

目標 PowerPointのマクロで特定のシェイプを操作したい 問題点 シェイプの名前を確認する方法が見つからない 対処 シェイプの名前をメッセージボックスで表示する ' シェイプ（図形とかテキストボックス）の名前確認用 Sub SelectShapeName() ' メッセージボックス出すよ ' 選択しているものの名前を Call MsgBox(ActiveWindow.Selection.ShapeRange.Name) End Sub パワーポイントでマクロを組もうとしたけど 特定のシェイプを指定する方法が分からなかった件　（名前が分からないから 名前を確認する方法考えた(｀･ω･´)

昨日眠かったので。。。 数字と小数点を抜き出すマクロ（アドイン）を作った エラー処理は一つもしていないので、なんとかしたい。 インプットボックスからセルの範囲を取得できるなら そのほうがわかりやすい気がする。かも。 '__________ ■ ThisWorkbook.clsの内容 __________ Option Explicit '***** アドインのインストール時 Private Sub Workbook_AddinInstall() '***** アドイン用コマンドバーを追加 Dim Menubar As CommandBar Set Menubar = Application.CommandBars.Add(Name:="数値抽出アドイン") '***** コマンドボタンを設定 With Menubar.Controls.Add(Type:=msoControlButton)