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で質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Googleスプレッドシートでワイ...
-
ファイル名を特定の文字までを...
-
TeraPadでの置換方法
-
正規表現でファイル名を置換したい
-
ファイル名に空白がある時、一...
-
【正規表現に詳しい方】ダブル...
-
Flexible Renamerの正規表現に...
-
IME 郵便番号辞書 で 都道府...
-
PS4コントローラーをPCでゲーム...
-
エクセルでアルファベットか数...
-
Chr(13)とChr(10)の違いは?
-
EBCDIC⇒SJIS変換の方法
-
1文字って1バイトだったっけ?
-
EXCELで=より左の文字を一括で...
-
文字列からタブコードを取り除...
-
履歴書の志望動機の所で、「ま...
-
「彡」って文字はなんという文...
-
VBAでテキスト出力時のスペース...
-
Left関数とRight関数を合わせた...
-
MMDでavi出力が出来ない
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Googleスプレッドシートでワイ...
-
TeraPadでの置換方法
-
IME 郵便番号辞書 で 都道府...
-
《》で囲まれた文字をすべて削...
-
正規表現で完全一致したキーワ...
-
【正規表現に詳しい方】ダブル...
-
ファイル名を特定の文字までを...
-
正規表現で最初にマッチしたも...
-
メモ帳の置換機能で特定の文字...
-
ファイル名に空白がある時、一...
-
Excel VBAでWord文書とText文書...
-
Excelの置換が上手くいかない M...
-
いくつものテキストファイルの...
-
word文章の自己チェック方法
-
ワードを使用した特定かつ複数...
-
Flexible Renamerの正規表現に...
-
(*)を_【*】に一括変換したいの...
-
秀丸マクロで能率的なテーブル...
-
Flexible Renamer 半角スペー...
-
秀丸で置換かマクロで括弧をと...
おすすめ情報