| Name | Type | Description |
|---|---|---|
| d11 |
Double
|
|
| d12 |
Double
|
|
| d21 |
Double
|
|
| d22 |
Double
|
|
| tx |
Double
|
|
| ty |
Double
|
Sub Test() Dim d11 As Double, d12 As Double, d21 As Double, d22 As Double Dim tx As Double, ty As Double, s As Shape For Each s In ActivePage.Shapes s.GetMatrix d11, d12, d21, d22, tx, ty s.SetMatrix d11 * 2, d12, d21 * 2, d22, tx, ty Next s End Sub