Defining shape dimensions

[masood143]

Hi Dears,
I am trying to draw a 3d box (shape type 14) with VBA, but I cannot find the required parameter to define its depth. The width and height parameters are very clear, but I am unable to change the default depth of this shape.

The command used to draw the box is;

DIM MyShaep as Shapes

Set MyShape = ActiveSheet.Shapes.AddShape(

Type:= 14, _
​

Left:= 20, Top:= 50, _

Width:=60, Height:=60)​

It might be very simple, but any help is highly appreciated.

Regards,
Masood.

 

[Yongle]

You cannot do that - depth does not exist
It is NOT a cube - it is a 2D shape "pretending" to be a cube


If you record a macro as the shape is resized this is the result

    ActiveSheet.Shapes.Range(Array("Cube 2")).Select
    Selection.ShapeRange.ScaleWidth 0.6625423018, msoFalse, msoScaleFromTopLeft
    Selection.ShapeRange.ScaleHeight 0.776859938, msoFalse, msoScaleFromBottomRightt

Someone good at maths may be able to find a way to manipulate "fake" cubes in a predictable way

 

[masood143]

Thanks.

I have managed to control the so called 'Depth' by the following code line;

Selection.ShapeRange.Adjustments.Item(1) = 0.1

I guess that 0.1 means 10% of the shape Height.

Regards,
Masood.

 

[Yongle]

just spotted this guide to shape adjustments http://www.andypope.info/tips/tip013.htm