OLEObj.
13.10.2012 11:11:31
Rolf
ich hoffe, dass meine Schwierigkeit für euch kein Problem ist.
Mit
Option Explicit
Dim bb As Double
Dim obj As Variant
Sub StEl_Breit()
For Each obj In Worksheets(1).OLEObjects
bb = obj.Width
obj.Width = bb + bb / 20
Next
End Sub
kann ich OLEObjects in der Größe (hier: Breite) ändern.Leider bleibt, z.B. bei einem Label, die Schriftgröße unverändert.
Ist es möglich, vielleicht durch die Einstellung einer bestimmten Eigenschaft, das Objekt dazu zu bringen, dass es seine Beschriftung bei der Größenänderung mitändert?
Gruß
Rolf