Formas

Excel utiliza el grupo Formas o “Shapes”, al que se accede seleccionando insertar>>Formas para insertar una forma “Shape” a una hoja de trabajo.

Shapes (objeto)  es la colección de todos los objetos Shape de la hoja especificada, cada objeto Shape representa un objeto de la capa de dibujo, como una autoforma, una forma libre, un objeto OLE o una imagen.

El número del nombre de la forma varía, dependiendo de cuantas formas iguales se haya insertado, por ejemplo si se han incrustado dos rectángulos, el nombre del segundo seria “2 Rectangle”.

Usaremos Shapes(índice), donde índice es el nombre o número de índice de la forma, para obtener un solo objeto Shape.

El siguiente procedimiento crea una forma con una textura y aplica algunos efectos y sombras.

Sub ObShapes()

Dim shp As Shape

Set shp = ActiveSheet.Shapes.AddShape(Type:=msoShapeMathMultiply, _

Left:=100, Top:=10, Width:=200, Height:=200)

    With shp

        .Line.Visible = False

        .ThreeD.Visible = True

        .ThreeD.Depth = 60

        .ThreeD.RotationY = 10

        .Shadow.Visible = True

        .Shadow.Transparency = 0.8

        .Shadow.Blur = 12

        .Fill.ForeColor.RGB = RGB(255, 0, 0)

    End With

End Sub

Al trabajar con formas es preferible que el código realice varias acciones, por lo tanto es eficiente crear una variable de objeto.

Nuestro ejemplo quedaría más o menos como la siguiente imagen: