| |
| |
|
Stephan
Sonneborn | Hello together,
white someone, how to make a with Profan erzeugtes Bitmap (Memorybitmap) to Excel import?
background:
In one Berechnungsprogramm becomes u.a. one Querschnitt created and this then accounts. around the Results the Berechnung tidy auszugeben (without large Programmieraufwand To drive) should The Results over OXC to Excel shoved go. Excel serves means only as Ausgabemedium.
around the a or others Berechnung To explain and around the begot Querschnitt abzubilden, should one Image Excel import go, of what Profan created watts. |
|
| |
| Schöne Grüße aus Wittgenstein
von Stephan
Programmierumgebung:| XProfan X4 | WIN10 | AMD FX6100 3,3 GHz | 01/19/12 ▲ |
|
| |
|
|
Sascha
Haak | Hello Stephan,
Have ähnliches already time made. Perhaps goes it rather, but I be How follows vorgegangen.
Image Clipboard copies, Exceltabelle called and VBA the image from the Clipboard gotten. (in the rule GEHTS with "ActiveSheet.paste") so works
by me Excel XP.
Greeting
Sascha |
|
| |
| |
| |
|
|
Stephan
Sonneborn | Hello Sascha,
many Thanks for your hint. now have I at least The Bitmap The Excel-scheduler copy can. If I yet The position and Size to determine could, wärs geschafft...
I Have Pascals Source something adjusted:
CompileMarkSeparation'****************** 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>)
so becomes one Image the Clipboard in the marked area (left supra) eingefügt. How can I now yet The Size (dimensions) the Bildes bearing? |
|
| |
| Schöne Grüße aus Wittgenstein
von Stephan
Programmierumgebung:| XProfan X4 | WIN10 | AMD FX6100 3,3 GHz | 01/19/12 ▲ |
|
| |
|
|
E.T. | ...time so integrally simply viewing: If famous is, in which Size the image eingefügt go should, Why then not same the (Memorybitmap) in the suitable Size create ??
... or the begot Image by @Create("hSizedPic", 0, &MEMBMP,... adjust and then use  |
|
| |
| Grüße aus Sachsen... Mario  WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte... | 01/20/12 ▲ |
|
| |
|
|
Sascha
Haak | In Excel goes it so moreover:
After the paste is the image yet active then
Selection.ShapeRange.ScaleWidth 0.4, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.4, msoFalse, msoScaleFromTopLeft
with the Values 0.4 had You rumspielen To The Size fit
Selection.ShapeRange.IncrementLeft 20
Selection.ShapeRange.IncrementTop 20
here setting DU the image of left and supra on The position. |
|
| |
| |
| |
|
|
Stephan
Sonneborn | thanks for Your Proposals! 
In one Excel-Forum have I this Source for VBA found:
CompileMarkSeparation' 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>
can the someone in OCX translate? |
|
| |
| Schöne Grüße aus Wittgenstein
von Stephan
Programmierumgebung:| XProfan X4 | WIN10 | AMD FX6100 3,3 GHz | 01/20/12 ▲ |
|
| |
|
|
Stephan
Sonneborn | sometimes ought to one itself simply time something longer with the supertollen Helpfile of Pascal keep busy.
so comes the image to Excel:
CompileMarkSeparation'****************** 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>()
|
|
| |
| Schöne Grüße aus Wittgenstein
von Stephan
Programmierumgebung:| XProfan X4 | WIN10 | AMD FX6100 3,3 GHz | 01/21/12 ▲ |
|
| |
|
|
Andreas
Koch | Hello together,
to the Topic another short Note. Excel shining no Filenames To to accept, The with a,b,f,n,q,r,t or z begin.
lovely Greeting
Andreas |
|
| |
| |
| |
|
|
 | sound but sooner to ESC-Sequenzen (see Help) -
rather Doppelbackslash indicate around the Backslash To disguise -
presumably lying the sooner on it.
means instead of:
CompileMarkSeparationVAR Bild$ = "C:\desert.jpg" >
CompileMarkSeparationVAR Bild$ = "C:\\desert.jpg" >
indicate there it otherwise Yes with the letters a,b,f,n,q,r,t or z failure must
or. Yes not at all functions can. |
|
| |
| |
| |
|
(548)
Deutsch
English
Français
Español
Italia