Word: Hintergrundbild auf jeder Seite

Übrigens, die Dokumenteigenschaften können schon mittels Makro verändert werden. Der Befehl dazu ist ActiveDocument.BuiltInDocumentProperties(wdPropertyTitle) (für den Titel). Alle Möglichkeiten findest Du auf http://www.p37.de/faqword/DokEigen.htm.

Gruss
Bruno

 

Das muß es nicht unbedingt. Für mich wäre es so mit der IF-Anweisung ohne jegliche Programmierung möglich gewesen, ein Bild in die Kopfzeile einzufügen und es wahlweise anzuzeigen oder nicht. Und das Bild wäre auch nur als "Link" im Dokument, so das die Datei nicht aufgebläht würde.
Welche Vorschlag hättest du denn, wenn es ohne INCLUDEPICTURE gemacht würde?

Schöne Grüße
Norbert

 

Ach ja, eine Frage hier im Thread hat mich auch noch auf die Idee gebracht, evtl. doch seitenabhängig ein anderes Bild zu verwenden. Das würde sich über die PAGE-Abfrage in Feldern wieder sehr schön lösen lassen. Ich wäre aber schon zufrieden, wenn ich das Bild überhaupt erst mal passend im Kopftext hätte.

Schöne Grüße
Norbert

 

Hi,

ich gestehe, dass ich jetzt alles ganz genau gelesen habe. Besonders der Teil mit den Makros - und Textfelder sind eh in Word mehr als überflüssig...

Schau Dir das mal an - vielleicht hilft Dir das mit der Grafik weiter...:

http://www.wordwelt.de/front_content.php?idart=192

zusätzlich vielleicht noch als Ergänzung, falls du es brauchst, dieses:

http://www.wordwelt.de/front_content.php?idcat=324

 

Danke für den Hinweis, aber es hilft mir nicht bei meinem Vorhaben und es funktioniert bei mir in Word200 auch nicht wie angegben.
Ich möchte halt nur eine Grafik über die Kopfzeile einbinden (damit sie auf allen Seiten erscheint) und möchte dies Grafik ein- und ausschalten können. Dabei sollte die Grafik nur verknüpft sein und nicht in der Datei gespeichert werden.

Schöne Grüße
Norbert

 

Hi,

die Grafik als "Hinter den Text" formatieren - dann funktioniert es auch in Word 2000...

Ein- und ausschalten: teste mal die Option Extras | Optionen auf dem Register "Drucken" den Punkt "Zeichnungsobjekte" und schalte mal in die Seitenansicht und wieder zurück....

Mit VBA geht das hin und herschalten so:

Code:

    With Options
    .PrintDrawingObjects = Not .PrintDrawingObjects
    End With

Ist zumindest ein Ansatz...

 

Ja ok, so geht es. Aber damit schränke ich die Anwendung der Vorlage ja auf "Nur Text" ein. Wenn ich das mit der Vorlage erstellte Dokument ohne die Grafik in der Kopfzeile ausgeben möchte, kann ich im Dokument selber keine Grafiken verwenden :-(
Ich bräuchte halt ein Makro, mit dem ich die Grafik in der Kopfzeile vergrößern kann. Leider hab ich bis jetzt keine Möglichkeit gefunden ein Makro aufzuzeichnen, welches dies erledigt. Wenn ich beim Aufzeichnen eines Makros eine Grafik formatieren will, muß dieses vorher bereits selektiert sein. Da die Grafik aber in der Kopfzeile ist, geht das natürlich nicht. Und selbst wenn, müßte ich noch einen Weg finden, wie ich die Grafik per Makro selektiere.

Schöne Grüße
Norbert

 

Hallo Norbert

Versuchs mal mit fogenden Befehlen, um die Bildgrösse zu ändern. Eventuell musst Du aber noch einiges Ändern. Ist nur ein Ansatz.

Code:

ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range.InlineShapes(1).Height = CentimetersToPoints(1.5)
ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range.InlineShapes(1).Width = CentimetersToPoints(3.14)

Gruss
Bruno

 

Hallo Bruno,

leider klappt das nicht, ich bekomme eine Fehlermeldung:

Laufzeitfehler '5941'
Das angeforderte Element ist nicht in der Sammlung vorhanden.

Guß Norbert

 

So, ich habe jetzt fast alles an Information, was ich für meine Grafik brauche. Es fehlt nur noch eine Sache, die mir vielleicht jemand beantworten kann. Es gibt viele Stellen im ActiveDocument, wo Grafiken abgelegt werden. Viele Stellen mit Shapes oder InlineShapes. Leider habe ich noch keine Stelle gefunden, wo im ActiveDocument Grafiken abgelegt werden, die mit INCLUDEPICTURE eingebunden worden sind.
Weiß das jemand von euch?

Gruß Norbert

 

Ich habe da noch eine Erweiterung zu meinem Thread #29: (Hatte die Textbox nicht berücksichtigt.)

Code:

  ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Shapes(1).TextFrame.TextRange.InlineShapes(1).Height = CentimetersToPoints(1.5)
  ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Shapes(1).TextFrame.TextRange.InlineShapes(1).Width = CentimetersToPoints(3.14)

Vielleicht klappt ja das...

Gruss
Bruno

 

So Leute,

ich bin meiner Lösung ein ganzes Stück näher gekommen. Werde nächste Woche noch etwas daran rumbasteln. Wenn euch die Lösung interessiert, werde ich das hier veröffentlichen.

Gruß Norbert