No.3ベストアンサー
- 回答日時:
エクセルのバージョンによるかもしれないのでよろしく。
下記は、参考にしてください。
VBなどと、またコントロールツールボックスのそれと、フォームのコントロールは不統一で難しいところと思う。
ーー
私はいつも確かめながら手探りで
Sub test02()
MsgBox Worksheets("Sheet3").Shapes(1).Name
End Sub
を実行する。Nameは強力で、エラーはまず出ない。
Button 1(半角スペースに半角1と思うが)が判る。
ーー
これを直接使わないで(半角やスペースの問題で)
n = Worksheets("Sheet3").Shapes(1).Name
のように文字列nに入れて
ーー
Sub test03()
n = Worksheets("Sheet3").Shapes(1).Name
Worksheets("Sheet3").Shapes(n).Select
MsgBox Selection.Caption
End Sub
を実行して、現在のCaptionが出ることを確かめかめて
(Captionも最近のVBなどで、Textなんかに変わったりしているので怖い)
ーー
Sub test04()
n = Worksheets("Sheet3").Shapes(1).Name
Worksheets("Sheet3").Shapes(n).Select
Selection.Caption = "実行ボタン"
End Sub
で実行ボタンに変わったことを確かめた。
ただマクロの記録と違ったカタチでできた。
ーー
色を設定(質問には無いが)
Sub test04()
n = Worksheets("Sheet3").Shapes(1).Name
Worksheets("Sheet3").Shapes(n).Select
Selection.Caption = "実行ボタン"
Selection.Font.ColorIndex = 5
End Sub
これもマクロの記録と違うができた。
エクセルのフォームのコントロールのプロパティは、手に負えない。
詳しい説明ありがとうございました。マクロの記録などで確かめながらマクロを組んでいますが、同じように研究されている方が多いようで、安心しました。今回は、select selectionを省きたかったのですが、そうは行かなかったようです。
No.2
- 回答日時:
新しいマクロの記録を用いて、シート上のボタンのテキストを変更すると下記のようなマクロが生成されます
Sub Macro2()
ActiveSheet.Shapes("Button 1").Select
Selection.Characters.Text = "ボタン 3"
End Sub
実際のシート上に何個のボタンがあって、どのようにされたいのか分かりませんが参考にはなると思います。
ボタンが複数あるなら例えば以下のようなマクロでもできます
Sub Macro3()
Dim idx As Integer
For idx = 1 To ActiveSheet.Shapes.Count
If Left(ActiveSheet.Shapes(idx).Name, 6) = "Button" Then
ActiveSheet.Shapes(idx).Select
Selection.Characters.Text = "Button " & idx
End If
Next
End Sub
ありがとうございました。shapes()のインデックスが分からなかったのと、.Select Selection.を省きたかったのですが、そうは行かないようですね。
No.1
- 回答日時:
マクロの記録で調べられると思います。
ActiveSheet.Shapes("Shapeの名前").Select
Selection.Characters.Text = "新しいテキスト"
↑文字だけ変えるならこんな感じ。
早速ありがとうございます。私もマクロの記録で作ってみましたが、
ActiveSheet.Shapes("Shapeの名前").Characters.Text = "新しいテキスト" というようにしたかったのですが、うまく行きませんでした。
選択した後で、選択を解除するしかないようですね。シートに保護をかけると、ボタンの選択もできなくなります。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) Vba 電卓 一文字消すボタン 3 2022/05/04 13:40
- Excel(エクセル) 【Excel】指定のセル内容を基に別シートのセルを検索して選択する【VBA】 1 2022/06/16 16:16
- Excel(エクセル) エクセルのVBAについて とあるサイトのコードを参考に、CSVの文字化けを直すVBAを作成しているの 7 2022/11/04 14:15
- Excel(エクセル) マクロでボタンにつける名前がどこに設定されているかわからないケースがありました。 1 2023/06/19 19:37
- Visual Basic(VBA) Excel VBA 教えてください。 VBA初心者です。 詳しい方がいましたら教えてください。 下記 3 2023/04/25 11:22
- iPhone(アイフォーン) iphoneのキーボード 既存のものを使っています。 名前のローマ字入力等、1文字目だけ大文字にした 4 2022/06/28 21:56
- JavaScript Javascriptが機能せず原因が分からないので教えて頂きたいです 3 2023/06/04 14:50
- Excel(エクセル) エクセルVBA、ファイル名をセルの値で保存の方法を教えてください。 おそれいります。こちらで数々のエ 6 2023/06/30 22:17
- Visual Basic(VBA) Excel VBA 同じ名前のフォルダがあれば作成したブックを格納するマクロをつくりたい 2 2023/01/16 16:19
- Visual Basic(VBA) VBA 画面上のカーソルに文字数字を入力するコードを教えて下さい 1 2022/10/30 10:31
このQ&Aを見た人はこんなQ&Aも見ています
-
賃貸で可能な古民家風レトロな部屋作りのコツ!改めて知る畳の高い機能性と魅力も紹介
畳の部屋を雰囲気のよい部屋に仕上げたい!賃貸住宅でもできる古民家風のレトロな部屋作りのコツを伺った。
-
VBA シートのボタン名を変更したい
Visual Basic(VBA)
-
Excelマクロでオプションボタンの名前の変更をしたい
Excel(エクセル)
-
Excel VBA ワークシートに貼られたボタン名(Caption)をセルの値から取得するには
その他(プログラミング・Web制作)
-
-
4
エクセルのマクロボタンが編集できません
Excel(エクセル)
-
5
CommandButtonのCaptionを変化させたい
Visual Basic(VBA)
-
6
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
7
VBAのコマンドボタンの文字列の改行方法は?
Visual Basic(VBA)
-
8
VBAでループ内で使う変数名を可変にできないか。
Visual Basic(VBA)
-
9
メッセージボックスの選択ボタンのテキストを変更したい
Visual Basic(VBA)
-
10
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
11
コマンドボタンがあるかどうかを取得するには?
PowerPoint(パワーポイント)
-
12
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
13
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
14
Excelコマンドボタン名を変数にして背景色を変更
サーバー
-
15
Application.ScreenUpdating = Falseが効きません
Visual Basic(VBA)
-
16
【ExcelVBA】マクロの入ったシートをコピーしても新しいシート内でマクロを動作させるには?
Excel(エクセル)
-
17
フォームコントロールから作ったボタンのデザイン
Excel(エクセル)
-
18
Excel VBAで、実行時にsheet上のコマンドボタンのCaptionを変更する。
Excel(エクセル)
-
19
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
20
フォントの大きさ
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Application.Runエラー(1004)
-
別シートのマクロを実行する方法
-
エクセルのマクロボタンが編集...
-
Access終了時にマクロまたはVBA...
-
エクセルVBAで、ボタンの文字を...
-
今日の日付の範囲を指定して印...
-
マクロが登録できません
-
InputBox内の表示について
-
別シートのトグルボタンを指定...
-
access2010 コマンドまたはアク...
-
AccessでExcelファイルを印刷
-
マクロ 戻るボタンを押したらシ...
-
ExcelのVBAでDisplayalertsで警...
-
<<ACCESS2000>>マクロでクエリ...
-
オートシェイプの黄色いハンド...
-
EXCEL2010でxltmにxlsmは必要?
-
プロシージャが大きすぎます!
-
Excel2003でシート保護(オート...
-
マクロは組めるけどフォームは...
-
シート保護を掛けたまま並べ替...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルのマクロボタンが編集...
-
別シートのマクロを実行する方法
-
Application.Runエラー(1004)
-
Access終了時にマクロまたはVBA...
-
access2010 コマンドまたはアク...
-
シート保護を掛けたまま並べ替...
-
今日の日付の範囲を指定して印...
-
エクセルVBAで、ボタンの文字を...
-
InputBox内の表示について
-
エクセルのマクロ
-
マクロ 戻るボタンを押したらシ...
-
エクセル VBA SendKeys ループ...
-
private sub にしたらマクロが...
-
マクロとモジュールの違いを教...
-
マクロが登録できません
-
Workbook_Openを起動時以外に呼...
-
アクセスのマクロについて
-
プロシージャが大きすぎます!
-
特定のシートだけ印刷はマクロ...
-
アクセス:検索フォームボタンに...
おすすめ情報