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.