nepixl
Jun 12, 2017, updated at 09:51:30 (UTC)
view1390
view10
0
Goto Top

VB: Bild aus Panel (Background) in Datei speichern in Verbindung mit PrintLine

GermansolvedQuestionVisual StudioDevelopment
Mahlzeit werte Admins,

sitze mal wieder vor einem VB Problemchen.
Aktuell möchte ich meine in der Form eingegebene Daten in eine Textfile (bzw *.doc(x)) file ausgeben. Jedoch wird in der Doc File die zugehörige Zeichnung vom Auftraggeber erwartet.

Derzeit übergebe ich meine Daten wie folgt:

 SaveFileDialog1.Filter = "doc(*.doc)| *.doc"  
        SaveFileDialog1.ShowDialog()
        If SaveFileDialog1.FileName <> "" Then  
            FileOpen(1, SaveFileDialog1.FileName, OpenMode.Output)
            PrintLine(1, "")  
            PrintLine(1, "Text" & Textbox.Text)  
            PrintLine(1, "Text2" & Textbox.Text2)  
            PrintLine(1, "")  
            FileClose(1)
        End If

Das klappt soweit auch ganz gut (Leider mit Formatierungsabfragen seitens Word).
Jedoch soll nun auch ein Bild in genau diese File geschrieben werden. Habe es hier mal probiert jedoch gescheitert:
PrintLine(1, Panel1.BackgroundImage) + Spielereien
Jedoch schmiert er mir dann ab.

Das besagte Bild ist der Hintergrund eines Panels.
Habt Ihr mir hierzu einen Tipp oder einen Vorschlag wie man es so einfach wie möglich umsetzen kann? Wäre euch sehr verbunden! face-smile
Gearbeitet wird mit VB 2010 Express.

Da ich mich Stück für Stück in die Programmierwelt einarbeite, bitte ich um Verständnis wenn ich total Müll produziere mit meinem Code. face-smile

Ich danke im Voraus
Viele Grüße
PixL
comment-contentCommentShareShare
Share on Facebook Share on Twitter Share on Reddit Share on Linkedin

Content-Key: 340371

Url: https://administrator.de/contentid/340371

Printed on: April 26, 2024 at 21:04 o'clock

10 Comments
Latest comment
Goto Top
Member: eisbein
eisbein Jun 12, 2017 updated at 10:20:45 (UTC)
Goto Top
Hallo!

Du hast da meines Erachtens mindestens 2 Denkfehler:

1) Du willst ein File einfach als .doc speichern und erwartest dann, dass es sich wie ein Word-Dokument verhält.

2) Panel1.BackgroundImage ist vom Typ Bitmap. Wie soll das (für Word lesbar) in die Datei geschrieben werden?

Mach dich erst mal schlau, wie man Word einbindet um ein Dokument erstellt.

Gruß
Eisbein
Member: nepixl
nepixl Jun 12, 2017 at 10:27:26 (UTC)
Goto Top
Hallo Eisbein,

Stimme ich Dir voll und ganz zu. Nur weiß ich mir momentan nicht anders zu helfen.
Ich belese mich mal in die von Dir vorgeschlagenen Themen.

Danke Dir!

Grüße
PixL
Mitglied: 133417
Solution 133417 Jun 12, 2017 updated at 11:41:40 (UTC)
Goto Top
Hi.
Normalerweise macht man das über das über das Einbinden der Outlook.Interop Assemblies, du kannst es aber auch über das COM-Objekt machen. Hier ein Beispiel:
Dim doc As Object
With CreateObject("Word.Application")  
       .Visible = True
       doc = .Documents.Add()
       doc.Range.Text = "BlaBla1" & vbNewLine & "BlaBla2"  
       doc.InlineShapes.AddPicture("D:\Bilder\fettesbild.jpg", False)  
End With
Damit kannst du das Word-Objektmodell ganz wie in VBA ansprechen. Du kannst also fast exakt die VBA-Doku zur Rate ziehen.

Gruß
heart1
Member: nepixl
nepixl Jun 12, 2017 at 10:32:26 (UTC)
Goto Top
Hallo BibersBaum,

sehr geil! Dankeschön! face-smile

Viele Grüße
PixL
Mitglied: 133417
133417 Jun 12, 2017 at 10:33:19 (UTC)
Goto Top
Bidde.
Member: nepixl
nepixl Jun 12, 2017 at 10:48:43 (UTC)
Goto Top
Hallo nochmal,

Gibt es auch die Möglichkeit (oder ein Denkanstoß) um die Bildfile irgendwie aus dem "Programm" zu holen?
Wenn ich einen fixen Pfad eingeben muss, wäre es vermutlich suboptimal da die Bilder auf einem neuem/anderem System nicht zu finden sind.

Ich probiere solange etwas .. face-smile

Danke schonmal!
Gruß
PixL
Mitglied: 133417
133417 Jun 12, 2017 updated at 10:50:54 (UTC)
Goto Top
Gibt es auch die Möglichkeit (oder ein Denkanstoß) um die Bildfile irgendwie aus dem "Programm" zu holen?
Speichere es aus deinem Programm ins Dateisystem (z.B. in den Tempordner) und dann lädst du es über die definierte Pfad-Variable rein, wo ist das Problem ???
Ab und zu mal die Hirnrinde massieren hilft face-wink.
Member: nepixl
nepixl Jun 12, 2017 at 10:52:23 (UTC)
Goto Top
Zitat von @133417:
...wo ist das Problem ???
Ab und zu mal die Hirnrinde massieren hilft face-wink.

MONTAG! Hmpf, .. natürlich! *kopfditsch*

Danke Dir! face-smile
Member: eisbein
eisbein Jun 12, 2017 at 11:36:21 (UTC)
Goto Top
Hallo!

inlineshapes.addpicture

Nun, wenn man sich die Beschreibung liest, könnte es da noch einen anderen Weg geben. face-wink

doc.InlineShapes.AddPicture("D:\Bilder\fettesbild.jpg", TRUE, True)
True , um das verknüpfte Bild mit dem Dokument zu speichern. Der Standardwert ist False .

Gruß
eisbein
Mitglied: 133417
133417 Jun 12, 2017 updated at 11:44:15 (UTC)
Goto Top
Zitat von @eisbein:

Hallo!

inlineshapes.addpicture

Nun, wenn man sich die Beschreibung liest, könnte es da noch einen anderen Weg geben. face-wink

> doc.InlineShapes.AddPicture("D:\Bilder\fettesbild.jpg", TRUE, True)   
>
True , um das verknüpfte Bild mit dem Dokument zu speichern. Der Standardwert ist False .
Meine Zeile oben stellt also ein Szenario dar bei dem das Bild im Dokument also keine Abhängigkeiten ins Dateisystem hat also eingebettet wird, ob das eben gewünscht ist muss er selbst entscheiden. Doku kann er ja hoffentlich lesen face-wink.
GermansolvedQuestionVisual StudioDevelopment