Ｐａｇｅ 62 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼シート内のボタンの書式変更 ちょび 02/9/11(水) 11:30 ┗Re:シート内のボタンの書式変更 コロスケ 02/9/11(水) 12:06 ┗Re:シート内のボタンの書式変更 ちょび 02/9/11(水) 12:45 ─────────────────────────────────────── ■題名 ： シート内のボタンの書式変更 ■名前 ： ちょび ■日付 ： 02/9/11(水) 11:30 -------------------------------------------------------------------------
| 皆さん、こんにちは。 昨日に続いてまたお願いします。 同じようなパターンのシートがたくさんあって、 それぞれのシートに、ボタンが１つだけあるのですが、 そのボタンの書式を変更するマクロを作りたいのです。 マクロの自動記述でとりあえず書いてみたら以下のようになりました。 Shapes("Button 31")のボタンの名前がそれぞれ違うため 他のシートを選んでマクロの実行をすると、 「指定した名前のアイテムが見つかりませんでした」というエラーになり デバッグではActiveSheet.以下の行が黄色になります。 （当然か・・・） でも、どのように修正したらいいのかわかりません。 どなたか、教えてください。m(_ _)m Sub Macro1() ActiveSheet.Shapes("Button 31").Select With Selection.Font .Name = "ＭＳ Ｐゴシック" .FontStyle = "太字" .Size = 10 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = 5 End With End Sub |
| ▼ちょび さん： ボタンに名前をつけては如何ですか？ ボタンを選択して、名前ボックス（数式バーの左）から好きな名前をつけてみてください。 当然コードも修正してくださいね。 |
| ▼コロスケ さん： ありがとうございます。 間抜けですが、ここに名前ボックスがあるのをすっかり忘れていました。 教えてもらったように名前をつけて簡単に変更できました。 助かりました。m(_ _)m |