オートシェープを.ThreeDで3D化して、
.ThreeD.RotationX や.ThreeD.RotationYでオートシェープを回転させて
敵キャラクターを表現しようとしていた。
3D化の例
With ActiveSheet.Shapes("shape21").ThreeD
.Visible = True
.Depth = 5
.ExtrusionColor.RGB = RGB(255, 255, 255)
.SetExtrusionDirection msoExtrusionTop
.PresetLightingDirection = msoLightingLeft
End With
回転の例
ActiveSheet.Shapes("shape21").ThreeD.RotationX = -90~90°
トーロイドやバキュラはオートシェイプが一つであるため
この方法で簡単に回転できるが、タルケン、カピ、テラジ等の
複数のオートシェイプを組み合わせて作ったキャラクターは、
とんでもないことになる。う~ん、こまったものだ。
| ホーム |