【PowerPoint×VBA】テキストボックスの「」の中を変更
Автор: Simple 〜プログラミング〜
Загружено: 2023-04-15
Просмотров: 1093
パワーポイントVBAでテキストボックスから
検索した文字の間のテキストを変更する方法のサンプル
■InStr関数→文字列が最初に現れる位置を取得
引数Start→開始位置（何文字目から探す？）
引数String1→検索元（ここから探して欲しい文字列）
引数String2→さがすもの（探す文字列）
■Characters 特定の文字を取得
引数Start→先頭文字（何番目から？）
引数Length→文字数（何文字？）
実際に使用したコード
------------------------------------------------------------------------
Option Explicit
Public Sub Sample()
'整数型で変数を３つ用意
Dim 先頭位置 As Long ' 「の場所
Dim 終了位置 As Long '」の場所
Dim 文字数 As Long '「」の間の文字数
'先頭の位置を取得して変数に入れる
先頭位置 = InStr(1, ActivePresentation.Slides(5) _
.Shapes("サンプルテキスト").TextFrame.TextRange.Text _
, "「") + 1
'終了位置を取得して変数に入れる
終了位置 = InStr(1, ActivePresentation.Slides(5) _
.Shapes("サンプルテキスト").TextFrame.TextRange.Text _
, "」")
'文字数を抽出
文字数 = 終了位置 - 先頭位置
'特定の文字を指定して変更
ActivePresentation.Slides(5).Shapes("サンプルテキスト") _
.TextFrame.TextRange.Characters(先頭位置, 文字数) = "猫である"
End Sub
------------------------------------------------------------------------
不明点や、こういう動画作って欲しい・こうしたほうがいい
こういったやり方がある等なんでも気軽にコメント頂ければ幸いです
皆様の存在に感謝しています いつも有難う御座います
■Twitterアカウント
/ simple_program
#VBA
#PowerPoint
#パワーポイント
Доступные форматы для скачивания:
Скачать видео mp4
-
Информация по загрузке:
![СОЛОВЬЁВ обратился к главе СБУ Малюку 😁 [Пародия]](https://ricktube.ru/thumbnail/hCp0d_9QV04/mqdefault.jpg)
