XProfan

'****************** ocxPackage2-Demo: Excel 1
'****************** XProfan 10 / Windows XP / Office 2003
'****************** © by TCS (Uwe "Pascal" Niemeier) 04'2007
'--Alle Angaben ohne Gewähr!
'--Nutzung auf eigene Gefahr!
'--Funktion:
'--Es wird eine Instanz von Excel gestartet und sichtbar gemacht.
'--Danach wird eine neue Arbeitsmappe angelegt, das erste Blatt davon
'--beschriftet und einige Zellen mit Text gefüllt.
'--Danach wird das Gespeichert-Flag gesetzt, um eine Rückfrage beim Beenden zu verhindern.
window 100,10-500,500
usermessages 16
 $H Windows.ph
 $H ocx3a.ph
 $I ocx3a.inc
ocxInit()
var Excel&=ocxCreate("Excel.Application")
var WorkBooks&=ocxGet(Excel&,"WorkBooks")
var NewBook&=ocxMethod(WorkBooks&,"Add")
var Sheet&=ocxGet(NewBook&,"ActiveSheet")
var Range&=ocxGet(Sheet&,"Range","B2:C3")
ocxPut(Excel&,"Visible",1)
ocxPut(Sheet&,"Name","Made by Profan")
ocxPut(Range&,"Value","Test")
ocxMethod(Range&, "select")
ocxMethod(Sheet&, "Paste")
ocxPut(NewBook&,"Saved",1)
ocxRelease(Range&,Sheet&,NewBook&,WorkBooks&,Excel&)
ocxDeInit(span class=s2>)

' Einfügen ohne Select von  Bert Körn
' Ausdruck.AddPicture(FileName, Verknüpfung, in Mappe speichern,
' Pos. Links, Pos. Oben, Breite, Höhe)
' erstes Offset Pos. Links 0 Zeilen und eine Spalte nach rechts
' zweites Offset Pos. Oben 0 Zeilen tiefer und 0 Spalten nach rechts

With ActiveSheet.Shapes.AddPicture(StBild, True, True,

    Target.Offset(0, 1).Left, Target.Offset(0, 0).Top, DoBreite * DoBildhoehe / DoHohe, DoBildhoehe)
    End /a>

'****************** ocxPackage2-Demo: Excel 1
'****************** XProfan 10 / Windows XP / Office 2003
'****************** © by TCS (Uwe "Pascal" Niemeier) 04'2007
'****************** erweitert um das Einfügen eines Bildes/21.01.2012/Stephan Sonneborn
'--Alle Angaben ohne Gewähr!
'--Nutzung auf eigene Gefahr!
'--Funktion:
'--Es wird eine Instanz von Excel gestartet und sichtbar gemacht.
'--Danach wird eine neue Arbeitsmappe angelegt, das erste Blatt davon
'--beschriftet und einige Zellen mit Text gefüllt.
'--Danach wird das Gespeichert-Flag gesetzt, um eine Rückfrage beim Beenden zu verhindern.
'--Danach wird ein Bild nach Excel kopiert.'
window 100,10-500,500
usermessages 16
 $H Windows.ph
 $H ocx3a.ph
 $I ocx3a.inc
 $I ocxInfo3a.inc
ocxInit()
var Excel&=ocxCreate("Excel.Application")
var WorkBooks&=ocxGet(Excel&,"WorkBooks")
var NewBook&=ocxMethod(WorkBooks&,"Add")
var Sheet&=ocxGet(NewBook&,"ActiveSheet")
var Range&=ocxGet(Sheet&,"Range","A1;B2;C3")
ocxPut(Excel&,"Visible",1)
ocxPut(Sheet&,"Name","Made by Profan")
ocxPut(Range&,"Value","Test")
ocxPut(NewBook&,"Saved",1)
'Bild Einfügen:
VAR True& = 1
VAR x1& = 10
VAR y1& = 10
VAR dx& = 100
VAR dy& = 100
VAR Bild$ = "C:\desert.jpg"
VAR Shapes& = ocxGET(Sheet&, "Shapes")
'ocxBROWSE(Shapes&)
VAR AddPic& = ocxMETHOD(Shapes&, "AddPicture", Bild$, True&, True&, x1&, y1&, dx&, dy&)
ocxRelease(Range&,Sheet&,NewBook&,WorkBooks&,Excel&)
ocxDeInit2>()

VAR Bild$ = "C:\desert.jpg"

VAR Bild$ = "C:\\desert.jpg"