Bild in Word mit VBA/Makro ein- und ausblenden

Diskutiere und helfe bei Bild in Word mit VBA/Makro ein- und ausblenden im Bereich Microsoft Office im Windows Info bei einer Lösung; Hallo Community, ich habe in Word ein UserForm erstellt. Durch das Aktivieren einer CheckBox aktiviere ich TextBoxen und ComboBoxen. Gleichzeitig... Dieses Thema im Forum "Microsoft Office" wurde erstellt von STFA Alex, 11. Juli 2019.

  1. STFA Alex
    STFA Alex Gast

    Bild in Word mit VBA/Makro ein- und ausblenden


    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
     
  2. -CHF- Win User

    WORD 2010: Zwei entgegenstehende Ausblendungen auf einer Seite?

    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
  3. Lisa Wilke-Thissen Win User

    Leerzeilen per VBA-Makro ausblenden

    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]
  4. Lisa Wilke-Thissen Win User

    Leerzeilen per VBA-Makro ausblenden

    Hallo Christian,

    "-CHF- [MVP]" schrieb

    im Tooltipp steht tatsächlich "Leerzeilen" auch wenn es um den Seitenzwischenraum in der Layoutansicht geht ("Leerraum zwischen Seiten in der Drucklayoutansicht anzeigen" )
    ich weiß. Aber ich wollte - allgemein, nicht nur für Frank - klarstellen, dass eben keine Leerzeilen gemeint sind ;-).

    Viele Grüße

    Lisa [MS MVP Word]
  5. -CHF- Win User

    Leerzeilen per VBA-Makro ausblenden

    Hallo Lisa,

    im Tooltipp steht tatsächlich "Leerzeilen" auch wenn es um den Seitenzwischenraum in der Layoutansicht geht ("Leerraum zwischen Seiten in der Drucklayoutansicht anzeigen" )

    Gruß Christian Co-Autor von "Word Programmierung - Das Handbuch" 3. erw. Auflage
  6. Frank.Spade Win User

    Leerzeilen per VBA-Makro ausblenden

    Liebe Lisa,



    danke für deine Antwort.

    Wenn ich ein Dokument im Seitenlayout bearbeite und auf den Bereich (Leeraum) zwischen zwei Seiten zeige, wird bei mir der Tooltipp "Doppelklicken zum Ausblenden von Leerzeichen" angezeigt. Wenn ich dann doppelklicke, werden die oberen und unteren Seitenränder,
    sowie Whitespace hinter dem letzten Absatz einer Seite ausgeblendet. Daher meine ich auch, dass der Tooltipp richtigerweise sich auf Leerzeilen (oder Leerraum) statt Leerzeichen beziehen sollte.

    Ansonsten ist dein Tipp korrekt und hat mir geholfen. Danke.

    Herzlichen Gruß

    Frank
  7. User Advert


    Hi,

    willkommen im Windows Forum!
Thema:

Bild in Word mit VBA/Makro ein- und ausblenden - Microsoft Office

Die Seite wird geladen...

Bild in Word mit VBA/Makro ein- und ausblenden - Similar Threads - Bild Word VBA

Forum Datum

Excel Tabellenblätter Ein- / Ausblenden VBA

Excel Tabellenblätter Ein- / Ausblenden VBA: Hallo zusammen, ich bräuchte in folgender Excel Datei eure Hilfe: Excel_Makro Es geht darum, ein Makro einzufügen. Sobald in dem Tabellenblatt "Übersicht" ein Haken im Kontrollkästchen eines...
Microsoft Office 19. Dezember 2018

PowerPoint VBA - ganze Folie ausblenden?

PowerPoint VBA - ganze Folie ausblenden?: Hallo, ich würde gern per VBA einzelne Folien aus meiner Präsentation ein- oder ausblenden (hidden/very hidden in Excel) - hab aber gar nichts gefunden. Geht das nicht? Gruß Susanne
Microsoft Office 15. Oktober 2018

Makro Word 2016

Makro Word 2016: Hallo, Während dem Aufzeichnen eines Makros wird & Chr(13) und Selection.TypeParagrah eingefügt beim betätigen der Entertaste. Früher wrurde nur Selection.TypePargraph eingefügt, was auch in...
Microsoft Office 9. März 2018

Steuerelemente mit Makro (ohne VBA) verknüpfen

Steuerelemente mit Makro (ohne VBA) verknüpfen: [IMG] Die beiden "Schaltflächen" - Kettenbagger & Radlader habe ich ausgeführt - die funktionieren - wie mache ich das Makro für Löschen, Suche, Alle - was muss ich in der Tabelle markieren um...
Microsoft Office 5. März 2018

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

VBA Makro - Formel in Zelle schreiben

VBA Makro - Formel in Zelle schreiben: Zum Abschluss meines Sub Fahrzeuge () möchte ich die Formel {=MITTELWERT(WENN(P2:P156="";R2:R156))} der Zelle R1 im Tabellenblatt "Gebraucht" zuweisen. Habe schon so einiges probiert - aber...
Microsoft Office 3. Februar 2017
Bild in Word mit VBA/Makro ein- und ausblenden solved
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.