|
Guten Morgen,
ich stehe vor dem Problem, dass ich diverse ActiveX-Checkboxen (aber auch drei Textboxen) in einem Word-Dokument habe, die ich im Code mit Height und Width anspreche. Die Funktionen funktionieren.. allerdings skalieren sämtliche ActiveX -Steuerelemente beim Scrollen geringfügig (synchron!Weshalb ich nicht zwingend von einem Fehler bei der Bestimmung von Height und Width ausgehe) , was einen flackernden Effekt erzeugt.
Ich habe schon über die ScreenUpdate Funktion nachgedacht...allerdings ohne Plan.
An der Hardwaregrafikbeschleunigung scheint es nicht zu liegen.
Hat jemand Ideen?
Grüße
Sibi
MS Office Professional Plus 2016
Win10 Enterprise
Zum Code:
Ich versuche Checkboxen ein- und auszublenden. Hierbei trickse ich mit dem Standort des Steuerelements, da ich in Word keine Hidden oder Visibility-Eigenschaft gefunden habe (Bookmarks funktionieren auch nicht wie gewünscht). In einem EventClassModule blende ich ebenfalls nochmal im BeforePrint Event aus und wieder ein.
Bsp:
Private Sub CB_K_Click()
If ThisDocument.CB_K.Value = True Then _
ThisDocument.CB_Bafin1.Caption = "Hier steht ein Text" & vbCrLf & _
"und in diesem Absatz auch"
With CB_Bafin1
.Width = 1
.Height = 1
.Enabled = False
End With
If ThisDocument.CB_K.Value = False Then _
ThisDocument.CB_Bafin1 = ""
If ThisDocument.CB_K.Value = False Then
With ThisDocument.CB_Bafin1
.Width = 1
.Height = 1
.Enabled = False
.Value = False
End With
Else
With ThisDocument.CB_Bafin1
.Width = 426.35
.Height = 35
.Enabled = True
End With
End If
usw.
|