Wie - Du hast gar keine Katze ?
NoNet
Hallo Heiti,
Deine ursprüngliche Beschreibung entspricht dann aber genau dem Gegenteil von dem, was Du möchtest !
Unabhängig davon : Dann ist das Calendar-Control offenbar ein nicht zoombares Objekt.
Die Buttons etc. stammen ja aus der "Microsoft Forms 2.0" (FM20.DLL), während das Calendar-Control aus derm MSCAL.OCX stammt. Daher reagiert es auch anders als die anderen Controls - das kann man nicht ändern, sondern muss es hinnehmen.
Allerdings funktioniert folgender Workaround :
- gib in eine Zelle des Tabellenblattes die Funktion
=JETZT() ein
- kopiere folgenden Code in das Klassenmodul des Tabellenblattes :
Private Sub Worksheet_Calculate()
ActiveSheet.Calendar2.Width = 200 * ActiveWindow.Zoom / 100
ActiveSheet.Calendar2.Height = 150 * ActiveWindow.Zoom / 100
End Sub
Die Zahlen
200 und
150 im Code geben die Breite/Höhe des Controls bei 100% Zoom an und können beliebig geändert werden !
Nach dem Zoomen kannst du nun per F9 eine Neuberechnung des Blattes durchführen (wenn eine Zelle markiert ist !), wodurch das Makro ausgeführt und die Größe des Calendar-Controls angepasst wird.
Gruß, NoNet