Sub Skalieren()
Const F As Double = 28.34645669
Const W As Single = 16 * F
Const H As Single = 9 * F
Dim sh As Object
For Each sh In ActiveSheet.Shapes
If sh.Type = 3 Then
With sh
.Width = W
.Height = H
End With
End If
Next
End Sub
Sub Skal2()
Const F As Double = 28.34645669
Const W As Single = 16 * F
Const H As Single = 9 * F
Dim N As String
Dim Name As String
N = ActiveChart.Name
Name = Right(N, Len(N) - InStr(1, N, " "))
ActiveSheet.Shapes(Name).Width = W
ActiveSheet.Shapes(Name).Height = H
End Sub
Sub Skal2()
Const F As Double = 28.34645669
Const W As Single = 16 * F
Const H As Single = 9 * F
Dim N As String
Dim Name As String
N = ActiveChart.Name
Name = Right(N, Len(N) - InStr(1, N, " "))
ActiveSheet.Shapes(Name).Width = W
ActiveSheet.Shapes(Name).Height = H
End Sub