Hallo zusammen,
Ich habe ein kleines Problem.
Ich habe ein Logo in die Kopfzeile, welches ich per Buttonclick ein- / ausblenden will.
Leider kenn ich mich in VBA im Zusammenhang mit Word nicht sehr gut aus.
Daher wäre ich froh, wenn Ihr mir helfen könntet.
EDIT:
Ich habe hier noch einen Code, denn ich selber gemacht habe.
Dies funktioniert, aber nur wenn das Bild mit einer der Layoutoptionen "Mit Textumbruch* gesetzt ist.
Freundliche Grüsse
Ovoxo
Ich habe ein kleines Problem.
Ich habe ein Logo in die Kopfzeile, welches ich per Buttonclick ein- / ausblenden will.
Leider kenn ich mich in VBA im Zusammenhang mit Word nicht sehr gut aus.
Daher wäre ich froh, wenn Ihr mir helfen könntet.
EDIT:
Ich habe hier noch einen Code, denn ich selber gemacht habe.
Dies funktioniert, aber nur wenn das Bild mit einer der Layoutoptionen "Mit Textumbruch* gesetzt ist.
Quellcode
- Private Sub CommandButton1_Click()
- Dim Form As Shape
- Set Form = ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Shapes(1)
- With CommandButton1
- If .Caption = "Ausblenden" Then
- .Caption = "Einblenden"
- Form.Visible = msoFalse
- ElseIf .Caption = "Einblenden" Then
- .Caption = "Ausblenden"
- Form.Visible = msoTrue
- End If
- End With
- End Sub
Freundliche Grüsse
Ovoxo
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Ovoxo“ ()