エクセルの図形について

質問

エクセルのシート上に円を描画してあります。この円を一旦消去した後にエクセルを終了させます。次にそのエクセルのファイルを開いた時に、先ほど消去した円と同一のものをシートの同じ位置に表示させたいのですが。どのような方法を用いればいいでしょうか？

マクロの記録開始　→　円を描画　→　マクロの記録終了　でマクロに登録すれば可能だと思いますが、既に円が描画されている状態でどうすればいいかが知りたいのですが。

回答No.1

imogasi · ベストアンサー

苦肉の策。
Ｓｈｅｅｔ１にボタンを２つ貼りつける。１つはＣａｐｔｉｏｎを保存・消去、１つを円描画とする。
ボタン１とボタン２のクリックイベントとして下記を作る。
Private Sub CommandButton1_Click()
' MsgBox Worksheets("sheet1").Ovals(1).Name
t = Worksheets("sheet1").Ovals(1).Top
l = Worksheets("sheet1").Ovals(1).Left
h = Worksheets("sheet1").Ovals(1).Height
w = Worksheets("sheet1").Ovals(1).Width
Worksheets("sheet2").Cells(1, 1) = t
Worksheets("sheet2").Cells(2, 1) = l
Worksheets("sheet2").Cells(3, 1) = h
Worksheets("sheet2").Cells(4, 1) = w
Worksheets("sheet1").Ovals(1).Delete
End Sub
Private Sub CommandButton2_Click()
t = Worksheets("sheet2").Cells(1, 1)
l = Worksheets("sheet2").Cells(2, 1)
h = Worksheets("sheet2").Cells(3, 1)
w = Worksheets("sheet2").Cells(4, 1)
ActiveSheet.Shapes.AddShape(msoShapeOval, l, t, w, h).Select
End Sub
円データ保存場所として、Ｓｈｅｅｔ２を使っているが、
テキストファイルへ書き出しでも出来るでしょう。
またボタンのクリックイベントでなくて、ＢｅｆｏｒｅＳａｖｅやＯｐｅｎイベントで出来ると思う。
円はシートに１つしか書かれない仮定ですが、増えると
面倒です。その外にプロパティが設定してあれば、それの値等も一緒に保存しておいて、円の再描画の際に右辺に設定すれば良いと思いました。

お礼

ご丁寧にありがとうございました。
実行してみましたが、

Private Sub CommandButton1_Click()
' MsgBox Worksheets("sheet1").Ovals(1).Name
t = Worksheets("sheet1").Ovals(1).Top 　　
　　　↑
　　ここで、"実行時エラー1004　WorksheetクラスのOvalsプロパティを取得できません"
　　になってしまいました。

回答No.2

imogasi

＃１です。
（１）ボタンを２つ貼りつける。
（２）円をシート上に書く。（オートシェエイプから）
（３）編集モードを解除する（三角定規と鉛筆のアイコンをクリック）
（４）ボタン１－＞ボタン２の順序でボタンをクリックする。
この内（２）のステップを飛ばしていませんか。
回答からコピペしてやって見たら、私の場合は動きましたが。
その他コマンドボタンのプロパティのCommandButtonXのXとSub　CommandButtonX_Click() のXと合わせてくださいね。普通最初なら１，２ですが消したりしていると３，４．・・と番号が進んでしまいますから。

補足

ご指摘の箇所は十分注意してやってみましたが、やはりうまく行きませんでした。
(エラー箇所・内容は先ほどと同じです)