A 回答 (3件)
- 最新から表示
- 回答順に表示
No.3
- 回答日時:
#1です。
作者に失礼して、当方で試験したコードを載せます。UserForm1に、テキストボックス2個(最初に検索用、次いで置換用を設ける)、コマンドボタン1個を設置します。プロパティは何もいじりません。
<標準モジュール>
Dim test As Long
Public SearchWord As String
Public ReplaceWord As String
Public Sub ReplaceShapeText()
Dim sh As Object '対象シート
Dim s As Shape '対象オートシェイプ
Dim t As String '対象テキスト
Call UserForm1.Show
Set sh = Application.ActiveSheet
On Error Resume Next
For Each s In sh.Shapes
t = s.TextFrame.Characters.Text
If Err Then
Call Err.Clear
Else
s.TextFrame.Characters.Text = Replace$(t, SearchWord, ReplaceWord)
End If
Next s
Set sh = Nothing
End Sub
<UserForm1のコード>
Private Sub CommandButton1_Click()
SearchWord = Me.TextBox1.Text
ReplaceWord = Me.TextBox2.Text
Call Unload(Me)
End Sub
以上
No.2
- 回答日時:
No.1
- 回答日時:
人様のコードです。
試用してみましたが、テキストボックス、四角、円筒等の文字列中の一部の文字を置換してくれました。グループ化してある場合は、解除しないと無理だと思います。(当方XL2000)ご参考まで。http://d.hatena.ne.jp/tk78/20080609/1213003555
この回答への補足
自分もやってみましたが、「コンパイルエラー:変数が定義されていません。」という表示が出てしまいましたが、何か修正が必要ということでしょうか?
ちなみに
Public Sub ReplaceShapeText()
という場所が色付けされます…
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) Excel VBA 教えてください。 VBA初心者です。 詳しい方がいましたら教えてください。 下記 3 2023/04/25 11:22
- Visual Basic(VBA) 特定の文字を簡単な操作で半角スペースに変換するか削除したい 2 2022/11/01 10:35
- その他(プログラミング・Web制作) テキストエディタで複数行にわたる文字列の行頭に番号を振る方法 4 2023/03/11 12:57
- Excel(エクセル) 【マクロ】マクロが保存されているエクセルとは、別のエクセルのオートフィルターのしぼりをクリアーしたい 2 2022/12/24 08:36
- 画像編集・動画編集・音楽編集 medibang での文字の整列の仕方 1 2023/06/02 06:38
- Excel(エクセル) VBA 文字列変換と指定した列にある日時データから時間を削除する方法について 2 2022/04/14 15:23
- Excel(エクセル) 【マクロ】マクロが保存されているエクセルとは、別のエクセルブックの全シートの非表示列を再表示したい 1 2022/12/24 20:48
- Excel(エクセル) ExcelのVBAコードについて教えてください。 1 2022/06/20 09:22
- Visual Basic(VBA) エクセルのマクロについて教えてください。 7 2023/07/04 09:18
- Excel(エクセル) 【Excel】指定のセル内容を基に別シートのセルを検索して選択する【VBA】 1 2022/06/16 16:16
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ファイル名に空白がある時、一...
-
ファイル名を特定の文字までを...
-
ワードを使用した特定かつ複数...
-
Flexible Renamerでの一括編集...
-
二重の拡張子の一部を消す。
-
正規表現で最初にマッチしたも...
-
PS4コントローラーをPCでゲーム...
-
wordの何も書かれていない2ペー...
-
友人とのラインで 「~MBと書く...
-
詳しくないので、どなたかお教...
-
4Kの外部モニターに出力すると...
-
VBA レジストリの値の読み方に...
-
[C言語]fputsとfprintfの違い
-
セル内の文字列が日本語か英語...
-
MMDでavi出力が出来ない
-
「彡」って文字はなんという文...
-
VBAでbmp画像をASCIIデータとし...
-
エクセルでアルファベットか数...
-
英数字を含む文字列(0-9,A-Z)...
-
10分で500~600文字っ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Googleスプレッドシートでワイ...
-
《》で囲まれた文字をすべて削...
-
TeraPadでの置換方法
-
IME 郵便番号辞書 で 都道府...
-
ファイル名を特定の文字までを...
-
正規表現で完全一致したキーワ...
-
正規表現で最初にマッチしたも...
-
ファイル名に空白がある時、一...
-
メモ帳の置換機能で特定の文字...
-
【正規表現に詳しい方】ダブル...
-
秀丸で置換かマクロで括弧をと...
-
Flexible Renamerの検索と置換...
-
CSVファイルの文字列を置換...
-
Flexible Renamer 半角スペー...
-
WinMergeにて置換の際に、文字...
-
(*)を_【*】に一括変換したいの...
-
Flexible Renamerの正規表現に...
-
EmEditorでの置換方法
-
ワードを使用した特定かつ複数...
-
二重の拡張子の一部を消す。
おすすめ情報