Handbuch BasicMaker 2010 - SoftMaker

pm.ActiveSheet.Columns(1).AutoFit
' Zeile 3 auf optimale Breite setzen
pm.ActiveSheet.Rows(3).AutoFit
ApplyFormatting (Methode)
PlanMaker führt normalerweise alle Formatierungsanweisungen, die Sie an ihn übermitteln, sofort aus.
Wenn Sie allerdings an einem Zellbereich mehrere Formatierungen direkt hintereinander anbringen möchten, können
Sie die Ausführung deutlich beschleunigen, indem Sie die Arbeitsblatteigenschaft ManualApply (siehe Workbook-
Objekt) auf True setzen.
Dann sind Sie selbst dafür zuständig, PlanMaker den Abschluss der Formatierung mitzuteilen. Dies geschieht dadurch,
dass Sie die Änderungen an den Formatierungen in eine With-Struktur einbetten und den Abschluss mit der
ApplyFormatting-Methode auslösen (siehe Beispiel).
Syntax:
Parameter:
ApplyFormatting
keine
Rückgabetyp:
keiner
Beispiel mit automatischer Formatierung (der Normalfall):
Sub Main
Dim pm as Object
Set pm = CreateObject("PlanMaker.Application")
pm.Visible = True
With pm.ActiveSheet.Range("A1:C3")
.Font.Name = "Arial"
.Font.Size = 14
.Font.Bold = TRUE
.NumberFormatting.Type = pmNumberPercentage
.NumberFormatting.Digits = 2
End With
Set pm = Nothing
End Sub
Beispiel mit manueller Formatierung:
Sub Main
Dim pm as Object
Set pm = CreateObject("PlanMaker.Application")
pm.Visible = True
pm.ActiveWorkbook.ManualApply = True
With pm.ActiveSheet.Range("A1:C3")
.Font.Name = "Arial"
.Font.Size = 14
.Font.Bold = TRUE
.NumberFormatting.Type = pmNumberPercentage
.NumberFormatting.Digits = 2
.ApplyFormatting
End With
pm.ActiveWorkbook.ManualApply = False
226 BasicMaker und PlanMaker Handbuch BasicMaker 2010