Mit ComatePlus image im Excel-Header platzieren

Meier · **Registriert:** 18.01.2018 17:02

Hallo zusammen,

ich möchte gerne mit ComatePlus ein Bild im Header von Excel platzieren.

Meine Recherche hat ergeben, dass das vermutlich so aussehen sollte:

Code:

ExcelObject\GetObjectProperty("ActiveSheet")\SetProperty("PageSetup\RightHeaderPicture\Filename=E:\image01.jpg")
ExcelObject\GetObjectProperty("ActiveSheet")\SetProperty("PageSetup\RightHeader='&[Grafik]'")

Es gibt zwar keine Fehlermeldung, aber es macht auch nicht, was es machen soll.

Wäre toll, wenn mir jemand behilflich sein könnte.

Gruß
Meier

Kiffi · **Registriert:** 08.09.2004 08:21 **Wohnort:** Amphibios 9

Schuss ins Blaue: Muss der Pfad zum Bild nicht auch in einfache Hochkommata?

Ansonsten das mal hier einbauen und großzügig nach jedem COMate-Befehl aufrufen

Code:

Procedure ShowErrorIfAny() 
  If COMate_GetLastErrorCode() : Debug COMate_GetLastErrorDescription() : EndIf 
EndProcedure 

Grüße ... Peter

Meier · **Registriert:** 18.01.2018 17:02

Hallo Peter,

Einfache Anführungsstriche haben keine Änderung hervorgerufen.

Zitat:

Debug COMate_GetLastErrorDescription()

habe ich bereits verwendet. Wirft nichts aus.

Es macht folgendes:

In dem Header ist zu sehen "Grafik]" (ohne Anführungsstriche) anstelle der Graphik. Klick ich in das Headerfeld, steht da "&[Grafik]" (so als wenn die Graphik auch hinterlegt ist) und der FileRequester öffnet sich um ein Bild einzufügen.

Noch eine Idee?

Gruß
Meier

bobobo · **Registriert:** 13.09.2004 17:48

in Deinem Commateaufruf fehlt wohl noch etwas, oder ist etwas zuviel ? &Grafik => &G

ich hab mal ein makro mit excel 2003 aufgezeichnet.
und entsprechend reduziert.

damit es wuppt muss der Code mindestens folgendes enthalten

Code:

Sub Makro4()
    ActiveSheet.PageSetup.RightHeaderPicture.Filename = "D:\klüngelkrams.jpg"
    ActiveSheet.PageSetup.PrintArea = ""
    With ActiveSheet.PageSetup
        .RightHeader = "&G"
    End With
End Sub

Meier · **Registriert:** 18.01.2018 17:02

Hallo bobobo,

das war es noch nicht ganz, aber du hast mich dazu gebracht mir den VBA-Code nochmal dazu anzusehen.

Und so sieht es also aus. War schon so nah dran. Nur ein I statt ein G.

Code:

ExcelObject\GetObjectProperty("ActiveSheet")\SetProperty("PageSetup\RightHeaderPicture\Filename=E:\image01.jpg")
ExcelObject\GetObjectProperty("ActiveSheet")\SetProperty("PageSetup\RightHeader='&I'")

Vielen Dank. Ihr seit super.
Meier

PureBoard

Mit ComatePlus image im Excel-Header platzieren

Wer ist online?