Linie Zeichnen per VBA von VFP aus
Dirk Wagner
ich bin nun so weit, dass ich per VBA in Word eine Linie in / über eine
markierte Grafik zeichnen kann ;-)
ActiveDocument.Bookmarks("Grafik").Select
ActiveDocument.Shapes.AddLine(x1,y1,x2,y2,Selection.Range).Select
ActiveDocument.Selection.ShapeRange.Line.Weight=1
ActiveDocument.Selection.ShapeRange.Line.Visible=msoTrue
Von VFP aus sieht das ganze so aus:
oWord=CREATEOBJ('Word.Application')
oWord=Documents.Open('Datei')
WITH oWord
.ActiveDocument.Bookmarks("Grafik").Select
.ActiveDocument.Shapes.AddLine(_
x1,y1,x2,y2,.Active.Documents.Selection.Range).Select
.ActiveDocument.Selection.ShapeRange.Line.Weight=1
.ActiveDocument.Selection.ShapeRange.Line.Visible=msoTrue
ENDWITH
Das
.ActiveDocument.Bookmarks("Grafik").Select
funktioniert auf, die Grafik ist markiert, doch bei
.ActiveDocument.Shapes.AddLine(x1,y1,x2,y2,.Active.Documents.Selection.R
ange).Select
bekomme ich die Fehlermeldung "unbekanter Befehl".
Woran kann das liegen?
Merci
Dirk
Dirk Wagner
da mir in m.p.d.w.vba an dieser Stelle nicht weitergeholfen werden
konnte frag ich halt hier mal...
Ich "missbrauche" ein Word-Serienbrief-Document als Bericht.
Dazu spreche ich Word als Objekt an:
oWord=CREATEOBJ('Word.Application')
oWord.Visible=.T.
oWord.Documents.Open('d:\projekte\Bericht.DOC')
etc.
Nun möchte ich an mehreren Stellen in im Dokument schon vorhandenen
Grafiken Pfeile für die Werte aus der Datenbank einfügen.
Auch das funktioniert eigentlich ganz gut.
oRNG = .ActiveDocument.Bookmarks(Marke).Range
oPFEIL = .ActiveDocument.Shapes.AddLine(x1, x2, y1, y2, oRNG)
Ein Problem habe ich nun wenn ich die gezeichnete Linie formatieren
möchte:
with oPFEIL.Line
.EndArrowheadStyle = msoArrowheadTriangle
.EndArrowheadLength = msoArrowheadLengthMedium
.EndArrowheadWidth = msoArrowheadWidthMedium
endwith
Die Konstanten mso... werden von Foxpro als Variablen definiert...
Aus m.p.d.w.vba kam nun die Empfehlung einen Verweis auf die «Microsoft
Office x.0 Object Library» anzulegen...
Leider fand ich aber nirgens einen Hinweis, wie das unter VFP 6
funktioniert oder ob es überhaupt geht.
Auf den Seiten der fdug fand ich einen Hinweis auf eine Includedatei
namens Winword8.h - der Link war aber tot.
Merci Dirk
Holger Vorberg
> Aus m.p.d.w.vba kam nun die Empfehlung einen Verweis auf die «Microsoft
> Office x.0 Object Library» anzulegen...
>
> Leider fand ich aber nirgens einen Hinweis, wie das unter VFP 6
> funktioniert oder ob es überhaupt geht.
sowas gibts in VFP gar nicht !
Die Werte für die im VBA verwendeten Konstanten kannst du aus dem
Objektkatalog im Word VBA Editor entnehmen.
Einen aktuellen Link auf eine fertige INCLUDE Datei hab ich im Moment auch
nicht zur Hand.
--
Tschüß,
Holger Vorberg
MS Visual FoxPro MVP
dFPUG Regionalleiter Bielefeld
Dirk Wagner
> sowas gibts in VFP gar nicht !
Dacht ichs mir doch ;-)
> Die Werte für die im VBA verwendeten Konstanten kannst du aus dem
> Objektkatalog im Word VBA Editor entnehmen.
Ja, dass habe ich für die paar Werte die ich brauche auch schon
gemacht...
> Einen aktuellen Link auf eine fertige INCLUDE Datei hab ich im Moment auch
> nicht zur Hand.
Schade aber nicht tragisch...
Dirk
Dirk Wagner
> hier im Anhang eine komplette Konstantenliste als Office.h
Merci
Dirk
Jochen Kirstaetter
na super :-(
Frank Hömke <sp...@ps-edv-gmbh.de> wrote in microsoft.public.de.fox:
> Hab ich einfach mal beim VFP8-Objektbrowser per Drag & Drop erzeugt.
DAS hätte doch vollkommen gereicht, oder?
Bis denne, JoKi
--
|\_/| ------ ProLib - programmers liberty ---------
(.. ) Unsere MVPs bringen den Fuchs zum Laufen...
- / auf www.prolib.de und www.AFPages.de
Frank Hömke
>
> > Hab ich einfach mal beim VFP8-Objektbrowser per Drag & Drop erzeugt.
>
> DAS hätte doch vollkommen gereicht, oder?
>
Da mir nicht klar ist, ob unter VFP6 dieses Vorgehen ebenfalls möglich ist,
hab ich die Datei als Anhang beigefügt, auch wenn man dies hier möglichst
vermeiden sollte.
Gruß
Frank