Thema Datum  Von Nutzer Rating
Antwort
Rot ActiveX Steuelerelemente skalieren beim Scrollen im Dokument
14.12.2023 08:00:20 Sibi
Solved
14.12.2023 09:01:17 Gast22511
NotSolved

Ansicht des Beitrags:
Von:
Sibi
Datum:
14.12.2023 08:00:20
Views:
225
Rating: Antwort:
 Nein
Thema:
ActiveX Steuelerelemente skalieren beim Scrollen im Dokument

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.


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot ActiveX Steuelerelemente skalieren beim Scrollen im Dokument
14.12.2023 08:00:20 Sibi
Solved
14.12.2023 09:01:17 Gast22511
NotSolved