Bild in Word mit VBA/Makro ein- und ausblenden

STFA Alex · 11. Juli 2019

Hallo Community,

ich habe in Word ein UserForm erstellt. Durch das Aktivieren einer CheckBox aktiviere ich TextBoxen und ComboBoxen. Gleichzeitig soll durch die Aktivierung der CheckBox auch eine Grafik eingeblendet werden. Leider funktiniert das jedoch nicht. Hier der Code:

Option Explicit

Private Sub CheckBox1_Click()
If Me.CheckBox1.Value = False Then
'Die nächste Zeile blendet das Logo aus.
ActiveDocument.Shapes("Logo1").Visible = False
'Die nächsten Zeilen bewirken, dass die Steuerelemente ausgeblendet werden, wenn die CheckBox deaktiviert ist.
Me.ComboBoxInhalt1.Enabled = False
Me.ComboBoxAltJahr1.Enabled = False
Me.ComboBoxJungJahr1.Enabled = False
Me.TextBoxMdtName1.Enabled = False
Me.TextBoxMdtNr1.Enabled = False
'Mit den folgenden Zeilen werden die Steuerelemente beim deaktivieren der CheckBox geleert
Me.ComboBoxInhalt1.Value = ""
Me.ComboBoxAltJahr1.Value = ""
Me.ComboBoxJungJahr1.Value = ""
Me.TextBoxMdtName1.Value = ""
Me.TextBoxMdtNr1.Value = ""

Else

'Hiermit wird das Bild ausgeblendet. Nochmal schauen (auch oben) wie das funktionieren könnte
ActiveDocument.Shapes("Logo1").Visible = True
Me.ComboBoxInhalt1.Enabled = True
Me.ComboBoxAltJahr1.Enabled = True
Me.ComboBoxJungJahr1.Enabled = True
Me.TextBoxMdtName1.Enabled = True
Me.TextBoxMdtNr1.Enabled = True

End If

End Sub

Mit dem folgenden Minimal-Beispiel, dass ich in einer separaten Datei getestet habe, funtkioniert das Ein- und Ausblenden genau, wie ich es mir vorgestellt habe.

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
ActiveDocument.Shapes("Picture 1").Visible = True
Else
ActiveDocument.Shapes("Picture 1").Visible = False
End If
End Sub

Hat jemand eine Idee, wo das Problem liegen könnte bzw. sieht meinen Fehler?

VIele Grüße

Alex

Andreas Killer

Probier mal den Code unten.

Wenn die ComboBoxen und TextBoxen an/aus gehen und das Logo nicht, dann ist das Problem beim Logo-Shape... ich rate mal und sage das es anders heißt.

Andreas.

Private Sub CheckBox1_Click()

  With Me.CheckBox1

    Me.Shapes("Logo1").Visible = .Value

    Me.ComboBoxInhalt1.Enabled = .Value

    Me.ComboBoxAltJahr1.Enabled = .Value

    Me.ComboBoxJungJahr1.Enabled = .Value

    Me.TextBoxMdtName1.Enabled = .Value

    Me.TextBoxMdtNr1.Enabled = .Value

    If .Value = False Then

      'Mit den folgenden Zeilen werden die Steuerelemente beim deaktivieren der CheckBox geleert

      Me.ComboBoxInhalt1.Value = ""

      Me.ComboBoxAltJahr1.Value = ""

      Me.ComboBoxJungJahr1.Value = ""

      Me.TextBoxMdtName1.Value = ""

      Me.TextBoxMdtNr1.Value = ""

    End If

  End With

End Sub

Andreas Killer

Das hat damit gar nichts zu tun, das Problem ist zu verstehen wie Word funktioniert.

Ein InlineShape ist Bestandteil des Textes, daher kann man das Ding nicht ein-/ausblenden.

Um das zu einem normalen Bild zu konvertieren wähle das Bild aus und dann führst Du im VBA-Editor diese Routine aus:

Sub Test()

  Selection.InlineShapes(1).ConvertToShape

End Sub

Danach funktioniert mein Code ohne Probleme.

Andreas.

STFA Alex

Vielen Dank erst einmal für die Antwort. VBA in Verbindung mit Word ist scheinbar nicht so populär, leider.

Ich habe deinen Code einmal ausprobiert, auch wenn ich ihn (noch) nicht ganz verstehe. Ich habe vorher auch noch einmal getestet, wie die Grafik genau heißt, um sicherzugehen, dass das nicht der Fehler ist.

Mit deinem Code bekomme ich nach dem Abhaken der CheckBox angezeigt: Fehler beim Kompilieren: Methode oder Datenobjekt nicht gefunden. Dabei wird das Wort "Shapes" markiert.

Kurz bevor deine Antwort kam, bin ich auf die Idee gekommen die Grafik als InlineShape mit dem Text in der Zeile zu platzieren und sie dann einfach "ein"- und "auszublenden" indem ich die Helligkeit auf 100 % erhöhe bzw. auf 50 % reduziere. Ein InlineShape
lässt sich auch nicht ausblenden, wie ein Shape, oder? Die Lösung ist wahrscheinlich nicht sehr elegant aber sie führt zum gewünschten Ergebnis. Die Grafik als InlineShape lässt sich für mich auch einfacher platzieren.

-CHF-

Hallo Jens,

wenn niemand eine Word-interene Funktion parat hat, dann kannst du um diese Tabellen eine Textmarke einfügen (z.B. Schueler1) und diesen Bereich per Makro ein- und ausblenden.

In dieses Makro kannst du dann auch die anderen TEile verwalten.

Wäre das eine Möglichkeit? Verwendest du eine eigene Dokumentvorlage für die Dokumente?

Hast du (Grund)Kenntnisse bzgl. VBA und Makros?

Dann könnte ich dir heute Abend oder Morgen was zusammenstellen.

Gruß

Christian

Lisa Wilke-Thissen

Hallo Frank,

Ich wollte in ein Makro aufzeichnen, dass die Leerzeilen in einem Dokument ausblendet, kann aber dafür keinen Menüpunkt finden.

meinst du leere Zeilen (Shift+Eingabetaste) oder leere Absätze (Eingabetaste)? Und mit "ausblenden" meinst du tatsächlich das Zeichenformat "ausgeblendet" bzw. "verborgen"?

Bei der Maus wird der Tooltipp "Doppelklicken zum Ausblenden von Leerzeichen" angezeigt (es sollte hier wohl besser Leerzeilen heißen).

Nein, weder Leerzeichen noch Leerzeilen. Offenbar meinst du die Option "Leerraum zwischen Seiten in der Drucklayoutansicht anzeigen" (Word-Optionen | Anzeige). Damit ist schlicht und ergreifend das Ausblenden des oberen und unteren Seitenrands in der Seitenlayout-Ansicht
gemeint (WhiteSpaceBetweenPagesShowHide). Schau mal nach "DisplayPageBoundaries" bzw. "View.DisplayPageBoundaries".

Viele Grüße

Lisa [MS MVP Word]

Hi,

willkommen im Windows Forum!

Bild in Word mit VBA/Makro ein- und ausblenden - Similar Threads - Bild Word VBA	Forum	Datum
Formular Detailbereich mit VBA ein-/ausblenden Formular Detailbereich mit VBA ein-/ausblenden: Hallo Support-Forum!Ich habe das Problem, dass der Detailbereich eines Formuars sich nicht mit VBA aus- oder einblenden lässt:me!detailbereich.visible =true 'oder falseIch habe schon alles...	Microsoft Office	2. November 2022
Excel VBA / Makro Zoomen Excel VBA / Makro Zoomen: Hallo Zusammen,1.Ich würde gerne per VBA / Makro Button alle Tabellenblätter per click z.B. auf 100% Zoomen Folgenden Code Habe ich benutzt. Leider wird nur das Tabellenblatt auf 100% gesetzt...	Microsoft Office	3. Oktober 2022
Zeilen per Makro / Knopfdruck ausblenden Zeilen per Makro / Knopfdruck ausblenden: Hallo zusammen,ich benötige Hilfe bei der Umsetzung einer Idee. Leider kenne ich mich so gut wie garnicht mit Makros und VBA aus, die verschiedenen Forenbeiträge die ich bei Google gefunden habe,...	Microsoft Office	27. August 2021
VBA Makro VBA Makro: Hallo da wir ja alle auf absehbare Zeit, etwas mehr Zeit haben werden, da ist es mein Wille mich in VBA Makro zu erlernen! Meine ersten Schrittein Excel sind grandios gescheitert! Hat jemand...	Microsoft Office	23. März 2020
Word 2016 VBA - Dokument bearbeiten ohne Makro zu beenden Word 2016 VBA - Dokument bearbeiten ohne Makro zu beenden: Ich habe im Worddokument z.B. 3 Bilder (inlineshapes). Diese sollen nicht eines nach dem anderen (also 1,2,3) sondern in vordefinierter Reihenfolge bearbeitet werden (z.B. 3,1,2). Mein Ansatz ist,...	Microsoft Office	12. August 2019
Word; Makro VBA, um Hyperlinks automatisch anzupassen Word; Makro VBA, um Hyperlinks automatisch anzupassen: Hallo Ich habe eine Word 2016-Datei mit rund 2000 Links, welche ich automatisch auf die Webseite oder ein internes Verzeichnis ausrichten möchte. Mein Problem: die Hyperlinks werden nur bis...	Microsoft Office	4. Februar 2018
VBA Makro VBA Makro: Guten Tag, ich habe folgrndes Makro geschrieben. Sub Hinweispfeil() ActiveSheet.Shapes.AddShape(msoShapeRightArrowCallout, 39, 18.75, 120.75, 61.5).Select Selection.ShapeRange.ShapeStyle =...	Microsoft Office	5. Januar 2018

Bild in Word mit VBA/Makro ein- und ausblenden