エクセル 立体 奥行 まくろ

お世話になっております。

エクセルにて
ｘ、ｙ、ｚ　軸のあるグラフを作成したく色々調べたのですが難しそうです。
（交点を中心に大きな豆腐と小さなこんにゃくを比較するような図）

シェイプなどを使って立方体をマクロで作成することは可能でしょうか。

エクセル画面上　縦　a 横　b　の場所を起点に
ｘ、ｙ、ｚ　の値で直方体が作れるような簡単なマクロってありますか。

ご教授願いまする。
（エクセル２０１０　マクロ初心者）

No.1 ベストアンサー 回答者： hallo-2007 回答日時： 2013/05/06 16:50

マクロの記録でほぼコードが得られます。

以下を参考に
Sub Macro1()
a = 100
b = 300
x = 50
y = 80
Z = 40

ActiveSheet.Shapes.AddShape(msoShapeRectangle, a, b, x, y).Select
With Selection.ShapeRange.ThreeD
.RotationX = -64
.RotationY = 18
.RotationZ = 0
.Depth = Z
End With
End Sub

この回答へのお礼

有難うございます。
できました！！
コード試したのですがｚがいまいちダメでした。
助かります。

ただシェイプの大きさで軸がぶれるんですよね。
a・bは３軸の交点でないからなんですが
ここはどうにもならないですよね。

お礼日時：2013/05/06 18:54

No.2 回答者： xls88 回答日時： 2013/05/06 16:54

直方体の挿入操作を「マクロの記録」でコードを採れば

ActiveSheet.Shapes.AddShape(msoShapeCube, 108, 67.5, 108, 108).Select
となります。

中心点を基準に2つ直方体を描けばいいのですか？

この回答へのお礼

ご回答有難うございます。

>>中心点を基準に2つ直方体を描けばいいのですか？

おっしゃる通りです。３次元のｚ＝ｙ＝ｚ＝０の場所を中心に
正の方向へ複数の立体を作るイメージです。

お礼日時：2013/05/06 18:57