Forumbeitrag
Excel-Version des Fragestellers:
2010
Erfahrungslevel des Fragestellers:
Basiskenntnisse in VBA
Moin!
Ins UserForm kommen 2 CommandButton
Mit dem einen skaliere ich (das UF incl. aller Controls) auf +10 % (auch mehrfach).
der andere verkleinert
Private Sub CommandButton1_Click()
With Me
.Height = .Height * 1.1
.Width = .Width * 1.1
.Zoom = .Zoom * 1.1
End With
End Sub
Private Sub CommandButton2_Click()
With Me
.Height = .Height / 1.1
.Width = .Width / 1.1
.Zoom = .Zoom / 1.1
End With
End Sub
Gruß Ralf