10
VB: Bild aus Panel (Background) in Datei speichern in Verbindung mit PrintLine
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:
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:
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!
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.
Ich danke im Voraus
Viele Grüße
PixL
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 IfDas 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) + SpielereienDas 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!
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.
Ich danke im Voraus
Viele Grüße
PixL
Auf Facebook teilen
Auf Twitter teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 340371
Url: https://administrator.de/contentid/340371
Ausgedruckt am: 24.11.2024 um 03:11 Uhr
10 Kommentare
Neuester Kommentar
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
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
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
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
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:
Damit kannst du das Word-Objektmodell ganz wie in VBA ansprechen. Du kannst also fast exakt die VBA-Doku zur Rate ziehen.
Gruß
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 WithGruß
1
Hallo BibersBaum,
sehr geil! Dankeschön!
Viele Grüße
PixL
sehr geil! Dankeschön!
Viele Grüße
PixL
Bidde.
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 ..
Danke schonmal!
Gruß
PixL
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 ..
Danke schonmal!
Gruß
PixL
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
.Zitat von @133417:
...wo ist das Problem ???
Ab und zu mal die Hirnrinde massieren hilft.
...wo ist das Problem ???
Ab und zu mal die Hirnrinde massieren hilft
.MONTAG! Hmpf, .. natürlich! *kopfditsch*
Danke Dir!
Hallo!
inlineshapes.addpicture
Nun, wenn man sich die Beschreibung liest, könnte es da noch einen anderen Weg geben.
True , um das verknüpfte Bild mit dem Dokument zu speichern. Der Standardwert ist False .
Gruß
eisbein
inlineshapes.addpicture
Nun, wenn man sich die Beschreibung liest, könnte es da noch einen anderen Weg geben.
doc.InlineShapes.AddPicture("D:\Bilder\fettesbild.jpg", TRUE, True) Gruß
eisbein
Zitat von @eisbein:
Hallo!
inlineshapes.addpicture
Nun, wenn man sich die Beschreibung liest, könnte es da noch einen anderen Weg geben.
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 Hallo!
inlineshapes.addpicture
Nun, wenn man sich die Beschreibung liest, könnte es da noch einen anderen Weg geben.
> doc.InlineShapes.AddPicture("D:\Bilder\fettesbild.jpg", TRUE, True)
> 
