Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
948to952
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
948to952
948to952
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Grafik in Kopfzeile per VBA

Grafik in Kopfzeile per VBA
06.02.2008 12:41:00
Thomas
Hallo zusammen,
ich habe, wie könnte es anders sein, ein kleines Excel-Problem mit VBA.
Ich möchte mittels VBA eine Grafik, die ich in einem Tabellenblatt vorliegen habe, als Grafik in die Kopfzeile einer neuen Tabelle in der gleichen Arbeitsmappe einfügen.
Hier ist der Code mit dem ich das versuche:
Dim Container As Object
Set Container = Worksheets("Datencontainer")
Container.Shapes(2).Select
Container.Shapes(2).Copy
ActiveSheet.PageSetup.CenterHeader = "&G"
Nur weiss ich an dieser Stelle nicht weiter :-(
Tippe mal, das es wohl auch nicht der richtige Ansatz ist. Allerdings hab ich keine bessere Idee.
Wäre schön wenn mir jemand helfen könnte
Gruß
Thomas

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Grafik in Kopfzeile per VBA
06.02.2008 16:47:00
anton
Hallo Thomas,
vllt hilft dir das hier:

Auszug aus OH:
LeftHeaderPicture-Eigenschaft
Gibt ein Graphic-Objekt zurück, das die Grafik für den linken Abschnitt der Kopfzeile darstellt. _
Wird dazu verwendet, Attribute zur Grafik festzulegen.
Ausdruck.LeftHeaderPicture
Ausdruck   Erforderlich. Ein Ausdruck, der ein PageSetup-Objekt zurückgibt.
Anmerkung
Die LeftHeaderPicture-Eigenschaft ist schreibgeschützt, aber die für sie festgelegten  _
Eigenschaften sind nicht alle schreibgeschützt.
Beispiel
In dem folgenden Beispiel wird eine Grafik mit der Bezeichnung Sample.jpg von Laufwerk C:\
in den linken Abschnitt der Kopfzeile hinzugefügt. In diesem Beispiel wird angenommen, dass
eine Datei mit der Bezeichnung Sample.jpg auf Laufwerk C:\ vorhanden ist.
Sub InsertPicture()
With ActiveSheet.PageSetup.LeftHeaderPicture
.FileName = "C:\Sample.jpg"
.Height = 275.25
.Width = 463.5
.Brightness = 0.36
.ColorType = msoPictureGrayscale
.Contrast = 0.39
.CropBottom = -14.4
.CropLeft = -28.8
.CropRight = -14.4
.CropTop = 21.6
End With
' Enable the image to show up in the left header.
ActiveSheet.PageSetup.LeftHeader = "&G"
End Sub


mfg Anton

Anzeige
AW: Grafik in Kopfzeile per VBA
06.02.2008 17:08:32
Thomas
Danke Anton für den Vorschlag aber es hilft leider nicht.
Es geht ja darum, dass die anzuzeigende Grafik in einer Tabelle des Arbeitsblattes vorliegt und ich diese dann in die Kopfzeile eines neu generierten Arbeitsblattes einfügen möchte.
Vermutlich habe ich nur die Möglichkeit die Bilddatei von der Platte nachzuladen und nicht schon in einem Tabellenblatt bereitzuhalten.
Aber trotzdem nochmal vielen dank.
Thomas

307 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige