How to make box with dimension

[faizee]

Dear all
I just need to know that is it possible in excel that we could make box with length,width,height dimensions?

for example: we just enter 100mm is length, 70mm is width and 30mm is height.. so excel will make box according to this size

 

[Andrew Poulsom]

See if you can adapt this:

Sub Test()
    Dim Length As Double
    Dim Width As Double
    Dim Height As Double
    Dim Box As Shape
    With ActiveSheet
        Length = Application.CentimetersToPoints(.Range("A1").Value / 100)
        Width = Application.CentimetersToPoints(.Range("A2").Value / 100)
        Height = Application.CentimetersToPoints(.Range("A3").Value / 100)
        Set Box = .Shapes.AddShape(msoShapeRectangle, 50, 50, Width, Height)
        With Box
            .ThreeD.Visible = msoTrue
            .ThreeD.Depth = Length
        End With
    End With
End Sub

 

[faizee]

can you please tell me in more detail
how to enter these codes in excel

and how to execute it

 

[Andrew Poulsom]

Look here:

http://www.contextures.com/xlvba01.html#Regular

The macro assumes that Length is in A1, Width is in A2 and Height is in A3 on the active worksheet.