(Excel 2003) マクロでワークシート上のラベルをコントロールしたいのですか・・・
こんにちは。
Excel 2003 で思い通りのグラフが作成できなくて、ならば自分で作ろうと無謀にも思い立ち、
マクロでラベルをワークシートに貼り付けてみました。
(とりあえずの目標)
・目的の位置に目的の大きさで貼り付ける。
・標題を消去する。(あるいは、特定の文字を設定。)
・境界線を設定する。
・背景色を設定する。
しかし、思った通りに動作してくれません。下記はそのテスト用のコードです。
Sub Test1()
With Sheets("テスト").OLEObjects.Add(ClassType:="Forms.Label.1", _
Left:=54, Top:=13.5, Width:=54, Height:=13.5)
'.Caption = "" 実行時エラー
'.BorderStyle = fmBorderStyleSingle 実行時エラー
'.BackColor = RGB(192, 192, 192) 実行時エラー
.Border.Color = vbBlack 'OK
.Interior.Color = RGB(192, 192, 192) 'NG(実行時エラーはないが効果無し)
End With
End Sub
(質問1)
プロパティウインドウでは指定可能なのに、VBAでプロパティを利用できないのは何故ですか?
Caption, BorderStyle, BackColor など
「オブジェクトは、このプロパティまたはメソッドをサポートしていません。」
(質問2)
標題を消去する(または、特定の文字を指定する)にはどうしたらよいですか?
また、背景色を設定するにはどうしたらよいですか?
初歩的なことと思いますが、よろしくお願いします。
お礼
おっしゃる通り透明になってたのが原因のようでした。できました。ご回答ありがとうございました。