Mit ComatePlus image im Excel-Header platzieren

Windowsspezifisches Forum , API ,..
Beiträge, die plattformübergreifend sind, gehören ins 'Allgemein'-Forum.
Meier
Beiträge: 21
Registriert: 18.01.2018 17:02

Mit ComatePlus image im Excel-Header platzieren

Beitrag von Meier »

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: Alles auswählen

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
Benutzeravatar
Kiffi
Beiträge: 10620
Registriert: 08.09.2004 08:21
Wohnort: Amphibios 9

Re: Mit ComatePlus image im Excel-Header platzieren

Beitrag von Kiffi »

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: Alles auswählen

Procedure ShowErrorIfAny() 
  If COMate_GetLastErrorCode() : Debug COMate_GetLastErrorDescription() : EndIf 
EndProcedure 
Grüße ... Peter
Hygge
Meier
Beiträge: 21
Registriert: 18.01.2018 17:02

Re: Mit ComatePlus image im Excel-Header platzieren

Beitrag von Meier »

Hallo Peter,

Einfache Anführungsstriche haben keine Änderung hervorgerufen.
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
Benutzeravatar
bobobo
jaAdmin
Beiträge: 3857
Registriert: 13.09.2004 17:48
Kontaktdaten:

Re: Mit ComatePlus image im Excel-Header platzieren

Beitrag von bobobo »

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: Alles auswählen

Sub Makro4()
    ActiveSheet.PageSetup.RightHeaderPicture.Filename = "D:\klüngelkrams.jpg"
    ActiveSheet.PageSetup.PrintArea = ""
    With ActiveSheet.PageSetup
        .RightHeader = "&G"
    End With
End Sub
‮pb aktuell5.7 - windoof aktuell und sowas von 10
Ich hab Tinnitus im Auge. Ich seh nur Pfeifen.
Meier
Beiträge: 21
Registriert: 18.01.2018 17:02

Re: Mit ComatePlus image im Excel-Header platzieren

Beitrag von Meier »

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: Alles auswählen

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

Vielen Dank. Ihr seit super.
Meier
Antworten