| |
| |
|
Stephan
Sonneborn | ¡Hola zusammen,
weiß alguien, cómo hacer un con Profano erzeugtes Mapa de bits (Memorybitmap) después de Excel importiert?
Hintergrund:
In una Berechnungsprogramm se u.a. una Querschnitt producido y dieser entonces berechnet. Um el Ergebnisse el Berechnung sauber auszugeben (sin großen Programmieraufwand a treiben) debería el Ergebnisse encima OXC después de Excel geschoben voluntad. Excel dient also sólo como Ausgabemedium.
Um el una u otros Berechnung a verdeutlichen y en el erzeugten Querschnitt abzubilden, se una Bild en Excel importiert voluntad, de lo que Profano producido wurde. |
|
| |
| Schöne Grüße aus Wittgenstein
von Stephan
Programmierumgebung:| XProfan X4 | WIN10 | AMD FX6100 3,3 GHz | 19.01.2012 ▲ |
|
| |
|
|
Sascha
Haak | ¡Hola Stephan,
tener ähnliches ya veces gemacht. Tal vez es mejor, pero yo bin como folgt vorgegangen.
Bild en Zwischenablage kopiert, Exceltabelle aufgerufen y VBA el Bild de el Zwischenablage geholt. (In el Regel gehts con "ActiveSheet.paste") así klappts
en me Excel XP.
Saludo
Sascha |
|
| |
| |
| |
|
|
Stephan
Sonneborn | ¡Hola Sascha,
vielen Dank para Su Tip. Jetzt Yo zumindest el Mapa de bits en el Excel-Tabla kopieren puede. Wenn Yo ahora todavía el Position y Größe bestimmen podría, wärs geschafft...
Yo Pascals Quellcode algo adaptado:
KompilierenMarcaSeparación'****************** 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>)
Damit se una Bild en el Zwischenablage en el markierten Zona (links oben) eingefügt. ¿Cómo se puede Yo nun todavía el Größe (Abmessungen) des Bildes beeinflussen? |
|
| |
| Schöne Grüße aus Wittgenstein
von Stephan
Programmierumgebung:| XProfan X4 | WIN10 | AMD FX6100 3,3 GHz | 19.01.2012 ▲ |
|
| |
|
|
E.T. | ...veces tan completamente simpel betrachtet: Wenn bekannt es, en welcher Größe el Bild eingefügt voluntad se, por qué entonces no es igual el (Memorybitmap) en el passenden Größe redactar ??
... oder el erzeugte Bild por @Crear("hSizedPic", 0, &MEMBMP,... adaptar y luego uso  |
|
| |
| 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... | 20.01.2012 ▲ |
|
| |
|
|
Sascha
Haak | In Excel es así más:
Nach el Paste es el Bild todavía aktive entonces
Selection.ShapeRange.ScaleWidth 0.4, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.4, msoFalse, msoScaleFromTopLeft
Mit el Werten 0.4 musste Usted rumspielen a el Größe passt
Selection.ShapeRange.IncrementLeft 20
Selection.ShapeRange.IncrementTop 20
Hier setzt DU el Bild de Links y Oben a el Position. |
|
| |
| |
| |
|
|
Stephan
Sonneborn | Gracias para Eure Propuestas! 
In una Excel-Foro Yo esta Quellcode para VBA gefunden:
KompilierenMarcaSeparación' 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>
Kann el alguien en OCX traducir? |
|
| |
| Schöne Grüße aus Wittgenstein
von Stephan
Programmierumgebung:| XProfan X4 | WIN10 | AMD FX6100 3,3 GHz | 20.01.2012 ▲ |
|
| |
|
|
Stephan
Sonneborn | Manchmal debería uno se simplemente veces algo länger con el supertollen Hilfedatei de Pascal beschäftigen.
So kommt el Bild después de Excel:
KompilierenMarcaSeparación'****************** 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 | 21.01.2012 ▲ |
|
| |
|
|
Andreas
Koch | ¡Hola zusammen,
a el Thema ni kurze Anmerkung. Excel scheint no Dateinamen a akzeptieren, el con a,b,f,n,q,r,t oder z beginnen.
Schönen Saludo
Andreas |
|
| |
| |
| |
|
|
 | Klingt aber más después de ESC-Sequenzen (siehe Ayuda) -
mejor Doppelbackslash angeben en el Backslash a maskieren -
vermutlich liegt el más daran.
Also en lugar de:
KompilierenMarcaSeparaciónVAR Bild$ = "C:\desert.jpg" >
KompilierenMarcaSeparaciónVAR Bild$ = "C:\\desert.jpg" >
angeben como lo sonst sí con el Buchstaben a,b,f,n,q,r,t oder z scheitern muss
o. sí garnicht trabajo kann. |
|
| |
| |
| |
|
(1.845)
Deutsch
English
Français
Español
Italia