• 締切済み

エクセルのVBAを教えて下さい。

Private Sub OptionButton1_Click() Range("A15").Select Selection.Font.ColorIndex = 1 Range("B12").Select Selection.Font.ColorIndex = 1 Range("A18").Select Selection.Font.ColorIndex = 2 Range("B18").Select Selection.Font.ColorIndex = 2 Sheets("シート1").Image1.Visible = False Sheets("シート1").Image2.Visible = True End Sub 上記のようなプログラムがありますが、たとえば、以下をまとめてコンパクトに出来ますか? Range("A15").Select Selection.Font.ColorIndex = 1 Range("B12").Select Selection.Font.ColorIndex = 1 オートシェイプを利用して画像をエクセル内に作りました。 その画像を表示、非表示させたいのですが、どのようにすればよいでしょうか?よろしくお願いします。

みんなの回答

  • merlionXX
  • ベストアンサー率48% (1930/4007)
回答No.3

> オートシェイプで作った画像に何をすればImage1として認識させることが出来るのでしょうか? オートシェイプで作った画像をクリックして、「名前ボックス」を見てください。名前がでているはずです。その名前でたとえば Sheets("シート1").Shapes("四角形 1").Visible = False のようにします。

すると、全ての回答が全文表示されます。
  • hige_082
  • ベストアンサー率50% (379/747)
回答No.2

こんなのは如何 Private Sub CommandButton1_Click() Range("A15,B12").Font.ColorIndex = 1 Range("A18,B18").Font.ColorIndex = 2 Sheets("シート1").Image1.Visible = False Sheets("シート1").Image2.Visible = True End Sub

すると、全ての回答が全文表示されます。
  • merlionXX
  • ベストアンサー率48% (1930/4007)
回答No.1

こういうことですか? Private Sub CommandButton1_Click() Range("A15").Font.ColorIndex = 1 Range("B12").Font.ColorIndex = 1 Range("A18").Font.ColorIndex = 2 Range("B18").Font.ColorIndex = 2 Sheets("シート1").Image1.Visible = False Sheets("シート1").Image2.Visible = True End Sub

noname#241383
質問者

補足

ありがとうございます。 オートシェイプで作った画像に何をすればImage1として認識させることが出来るのでしょうか?

すると、全ての回答が全文表示されます。

専門家に質問してみよう