title image


Smiley Re: Logo im pdf integrieren
Hallo,



ich würde wie schon vorgeschlagen eine Dokumentvorlage anlegen und das Logo als Shape (Textfluss: vor dem Text) einfügen.

Das folgende Makro legt eine neue Symbolleiste mit einem Button darauf an und braucht in der Regel nur einmal ausgeführt zu werden. Mit dessen Hilfe kann die erste Grafik im Dokument ein- oder ausgeblendet werden. Wichtig, die Grafik darf sich nicht z.B. in einer Kopfzeile befinden, dann funktioniert es nicht.

Solltest Du nicht zurechtkommen, kannst Du mir das Teil auch schicken und angeben, welche Wordversion verwendet wird.



      Hubert

Private Sub Show_Hide_Logo()

'Erzeugt eine neue Symbolleiste

CustomizationContext = ActiveDocument.AttachedTemplate

'

Dim xLeiste As CommandBar

Dim Titel As String

Dim CmdBar, neuesElement

'Erzeugen der Symbolleiste

Titel = "Logo anzeigen"

'

'Prüfen, ob die Symbolleiste existiert

For Each xLeiste In CommandBars

If xLeiste.Name = Titel Then

xLeiste.Delete

'Exit Sub

End If

Next xLeiste

'

Set CmdBar = CommandBars.Add( _

Name:=Titel, Position:=msoBarBottom, temporary:=True)

'

Dim CBut As CommandBarButton

Set CBut = CommandBars(Titel).Controls.Add(ID:=1)

'

With CBut

.Style = msoButtonIconAndCaption

.Caption = "Grafik verbergen"

.TooltipText = "Logo anzeigen/verbergen."

.OnAction = "ShowLogo"

.FaceId = 218

End With

'

CmdBar.Visible = True

CmdBar.Position = msoBarBottom

End Sub

'

Private Sub ShowLogo()

Dim Btn As CommandBarButton

Set Btn = CommandBars.ActionControl

'

With Btn

If Btn.State = msoButtonUp Then

Btn.Caption = "Grafik verbergen"

Btn.State = msoButtonDown

ActiveDocument.Shapes(1).Visible = msoTrue

Else

Btn.State = msoButtonUp

Btn.Caption = "Grafik anzeigen"

ActiveDocument.Shapes(1).Visible = msoFalse

End If

End With

'

Application.ScreenRefresh

End Sub







geschrieben von

Anhang
Bild 292 zu Artikel 43139

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: