Bild in Word mit VBA/Makro ein- und ausblenden

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

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.

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.

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

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]