エクセル 立体 奥行 まくろ

質問

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

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

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

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

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

回答No.1

hallo-2007 · ベストアンサー

マクロの記録でほぼコードが得られます。
以下を参考に
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は３軸の交点でないからなんですが
ここはどうにもならないですよね。

回答No.2

xls88

直方体の挿入操作を「マクロの記録」でコードを採れば
ActiveSheet.Shapes.AddShape(msoShapeCube, 108, 67.5, 108, 108).Select
となります。

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

お礼

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

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

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