A mo' di esempio:
- Codice: Seleziona tutto
Sub Demoform()
'
R1xx = Range("A1") 'left
R1yy = Range("A2") 'top
WR1 = Range("B1") 'Larg
HR1 = Range("B2") 'Alt
'
C1xx = Range("A4")
C1yy = Range("A5")
C1Rad = Range("B4")
ActiveSheet.Shapes.AddShape(msoShapeRectangle, R1xx, R1yy, WR1, HR1). _
Select
ActiveSheet.Shapes.AddShape(msoShapeOval, C1xx, C1yy, C1Rad, C1Rad).Select
End Sub
Questa crea un rettangolo le cui coordinate sono impostate in A1 e A2 e i cu lati sono impostati in B1 e B2, e un cerchio con coordinate in A4 e A5 e raggio in B4.
Questo codice invece seleziona una forma e poi la ridimensiona in alto /largo dello stesso fattore:
- Codice: Seleziona tutto
ActiveSheet.Shapes("Oval 19").Select
Selection.ShapeRange.ScaleWidth 0.71, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.71, msoFalse, msoScaleFromTopLeft
Sono tutti esempi basati sulla registrazione di una nuova macro.
Per altri spunti siamo qua, in tanti.
Ciao