Viele Shapes vergrößern
04.11.2016 15:16:46
Dieter(Drummer)
mit folgemdem Code wird die Grafik (Shape) Nr. 72 im aktiven Tab.blatt vergrößert und das funktioniert. Im aktiven Tab.blatt sind aber die Grafiken von Nr. 72 bis inkl. 140.
Wie muss der Code sein, dass alle Grafiken, aber nur die Nummern 72 bis 140, die gleiche Größe, entsprechend vergrößert erhalten?
Mein bisheriger Code:
Public Sub Gross()
ActiveSheet.Shapes.Range(Array("Picture 72")).Select
Selection.ShapeRange.Height = 28.3464566929
End Sub
Ich habe es schon mit ...("Picture 72,72 ...") versucht, aber das geht nicht.
Mit der Bitte Lösung grüßt
Dieter(Drummer)