|
Grafikdatei aus Exel heraus über Schaltfläche öffnen
|
| Autor |
Nachricht |
curt55
Im Profil kannst Du frei den Rang ändern
Verfasst am: 07. Feb 2010, 15:11 Rufname:
|
|
| Version: Office 2003 |
|
Hallo zusammen,
ich möchte aus Exel heraus über eine Schaltfläche eine Grafikanwendung (z.B. IrfanView) und darin eine Grafikdatei (jpg) öffnen.
Nach Möglichkeit sollte der Dateiname aus einer Exelzelle in der xls-Datei herausgelesen werden, die gerade geöffnet ist und in der sich die Schaltfläche befindet.
Kann mir jemand bei dem Code für die Schaltfläche helfen ?
LG, Curt
|
|
Citizen Cane
Gast
Verfasst am: 07. Feb 2010, 15:16 Rufname:
|
| |
| Version: Office 2003 |
|
Hallo Curt.
Du könntest einen Hyperlink zu der jpg erstellen.
Dann bräuchtest du nicht mal eine Schaltfläche, sondern bloß in die Zelle zu klicken.
|
|
Kaulquappe
ewiger Amateur

Verfasst am: 07. Feb 2010, 19:39 Rufname:
Wohnort: Münster
|
|
| Version: Office 2003 |
|
Hallo,
und sonst geht es so:
| Code: |
Private Sub CommandButton1_Click()
Set f = CreateObject("WScript.Shell")
f.Run """" & Selection.Text & """"
Set f = Nothing
End Sub
|
Das ruft das Standardprogramm nach der Dateiendung auf.
In der markierten Zelle muss also nur der Dateiname mit gesamtem Pfad stehen.
Um direkt ein Programm anzugeben könntest Du einfach den Befehl Shell nehmen.
Gruß
Michael
|
|
Gast
Verfasst am: 07. Feb 2010, 23:04 Rufname:
|
|
| Version: Office 2003 |
|
Danke für Eure Antworten.
@ citizen cane :
...mit dem Hyperlink habe ich probiert. Dann öffnet die jpg-Datei jedoch immer im Internet Explorer. Das kann ich nicht gebrauchen, weil ich in der geöffneten jpg-Datei grafisch arb eiten will.
@ Michael
das werde ich probieren. Vielleicht kannst Du mir noch kurz erklären, was zwischen die """" kommt ? Habe ich noch nicht so ganz verstanden.
Gruß, Curt
|
|
Citizen Cane
Gast
Verfasst am: 07. Feb 2010, 23:13 Rufname:
|
| |
| Version: Office 2003 |
|
Hallo Curt.
Die Grafiken werden nur dann mit dem IExplorer geöffnet wenn sie keiner anderen Anwendung zugeordnet wurden.
Aber selbstverständlich kannst du auch den Code benutzen. Ich dachte nur daß ein Link innerhalb weniger Sekunden gelegt ist.
|
|
Kaulquappe
ewiger Amateur

Verfasst am: 07. Feb 2010, 23:13 Rufname:
Wohnort: Münster
|
|
| Version: Office 2003 |
|
Hallo,
die """" sind jeweils ein einzelnes Anführungszeichen. Die gehören unverändert, sie sind notwendig für den Fall dass Pfad oder Dateiname Leerzeichen enthalten.
(Anführugnszeichen im String = "").
Im Beispiel wird Selection.Text ausgelesen, also die markierte Zelle.
Selection.Text kannst Du durch einen Zellbezug ersetzen, zB Cells(2, 7).Text
Gruß
Michael
|
|
Gast
Verfasst am: 08. Feb 2010, 02:16 Rufname:
|
|
| Version: Office 2003 |
|
danke Euch für die Hilfe.......
@citizen cane :
Du hast ja recht, dass es mit dem Link einfacher wäre. Ich habe die jpg-Datei aber der Anwendung "IrfanView" zugeordnet. Trotzdem öffnet er mir die Datei mit dem IExplorer.
@Michael
Habe es jetzt richtig verstanden und es funktioniert. Das Problem ist nur, dass nicht der gesamte Pfad zu dem Bild in der auszulesenden Zelle steht, sonder nur der eigentliche Name. Also, wenn der Pfad heißen würde "C:\Test\Testbild01.jpg" steht in der Zelle nur "Testbild01".
Wenn also in der Zelle "Testbild01" steht, muss Exel den Zelleninhalt umwandeln in die Pfadangabe "C:\Test\Testbild01.jpg". Wenn in der Zelle steht "Testbild02" soll das umgewandelt werden in "C:\Test\Testbild02.jpg".....usw
Gibt es da eine Möglichkeit, dies zu integrieren ?
Gruß, Curt
|
|
Kaulquappe
ewiger Amateur

Verfasst am: 08. Feb 2010, 08:17 Rufname:
Wohnort: Münster
|
|
| Version: Office 2003 |
|
Hi,
das geht so:
| Code: |
Private Const bilderpfad = "C:\bilder\"
Private Sub CommandButton1_Click()
Set f = CreateObject("WScript.Shell")
f.Run """" & bilderpfad & Selection.Text & ".jpg" & """"
Set f = Nothing
End Sub
|
Gruß
Michael
|
|
Gast
Verfasst am: 08. Feb 2010, 15:33 Rufname:
|
|
| Version: Office 2003 |
|
Hallo Michael,
danke für Deine Hilfe,
ich werde mal versuchen , ob ich das umsetzen kann???
Werde dann berichnten.
Gruß, Curt
|
|
Gast
Verfasst am: 09. Feb 2010, 04:32 Rufname:
|
|
| Version: Office 2003 |
|
hallo Michael,
ich habe Deine Hilfe gut umsetzen können. Es funktioniert hervorragend. Ich habe jetzt das Feld, in dem der Bildername steht, noch mit einer Gültigkeitsregel belegt und hole mir aus einer Liste die entsprechenden Namen, so dass kein Fehler durch falsches Eintippen entstehen kann.
Soweit so gut.
Habe aber noch eine Frage. Bei mir soll die Datei auf einem Netbook mit relativ klein em Bildschirm laufen. Ich hätte daher gerne, dass die Datei praktisch beim Aufrufen in den "Ganzer Bildschirm-Modus"geht. Die Datei ist als .xlt-Datei gespeichert und ich rufe praktisch jeweils ein "Formular" davon auf.
Kann man Exel dazu veranlassen ?
Gruß, Curt
|
|
Kaulquappe
ewiger Amateur

Verfasst am: 09. Feb 2010, 21:40 Rufname:
Wohnort: Münster
|
|
| Version: Office 2003 |
|
Hi,
schön dass es klappt.
Application.DisplayFullScreen = True
könntest Du einfach in den Code des Buttons als letzte Zeile hinzufügen.
Gruß
Michael
|
|
Gast
Verfasst am: 10. Feb 2010, 00:21 Rufname:
|
|
| Version: Office 2003 |
|
Hallo Michael,
mit dem Einfügen Deiner Zeile auf den Button-Code erreiche ich leider nicht das Ziel, dass diese Ansicht beim Öffnen der Datei bereits vorhanden ist.
Gibt es dafür eine Lösung ?
Gruß, Curt
|
|
Kaulquappe
ewiger Amateur

Verfasst am: 10. Feb 2010, 09:42 Rufname:
Wohnort: Münster
|
|
| Version: Office 2003 |
|
Ach so,
dann musst Du im VB-Editor links auf "DieseArbeitsmappe" doppelt klicken,
und in den Auswahllisten oben
(wo Allgemein und Deklaration steht)
erst links das Workbook und dann rechts das Ereignis Open (ist glaub ich automatisch schon gewählt) auswählen.
In die Sub kannst Du dann die Zeile schreiben.
Dann wird die Anzeige geändert, sobald die Makros beim Öffnen bestätigt wurden.
Gruß
Michael
|
|
Gast
Verfasst am: 10. Feb 2010, 11:10 Rufname:
|
| |
| Version: Office 2003 |
|
Hallo Michael,
auch das funktioniert jetzt und ich bin sehr zufrieden.
Nochmal einen großen dank an Dich.
Gruß, Curt
|
|
| Verwandte Themen |
| Forum / Themen |
Antworten |
Autor |
Aufrufe |
Letzter Beitrag |
 |
Excel Hilfe: Exel Projekt [Hilfe wird gesucht] |
3 |
justFame |
117 |
29. Mai 2010, 09:05 < Peter > ![Exel Projekt [Hilfe wird gesucht] Exel Projekt [Hilfe wird gesucht]](templates/subSilver/images/icon_latest_reply.gif) |
 |
Excel VBA (Makros): Mit excel andere Exceldateien individuell öffnen |
4 |
Roemen |
131 |
25. Apr 2010, 20:14 Roemen  |
 |
Excel Hilfe: Excel Dokumente lassen sich mehrfach öffnen |
1 |
kovu94 |
1062 |
22. Apr 2010, 15:54 Markus41  |
 |
Excel VBA (Makros): Outlook Adressbuch aus Exceluserform öffnen und lesen |
10 |
Nimmerfremd |
259 |
01. Apr 2010, 13:45 Rhapsody  |
 |
Excel VBA (Makros): Hyperlink per Makro öffnen |
2 |
Kellerkind1981 |
366 |
03. Dez 2009, 11:26 Kellerkind1981  |
 |
Excel VBA (Makros): Datei aus VBA öffnen und in Tabellenblatt wechseln |
4 |
wondertab |
559 |
31. Okt 2009, 16:51 wondertab  |
 |
Excel Auswertungen: Pivot-Tabelle wird beim öffnen zerschossen |
0 |
Hunkenschroer |
135 |
18. Aug 2009, 12:16 Hunkenschroer  |
 |
Excel Hilfe: Pop-up Fenster beim öffnen einer Excel-Datei |
8 |
little_D |
6391 |
15. Mai 2009, 14:47 Rockingpope  |
 |
Excel VBA (Makros): Kontakt in Outlook öffnen mit Excel LastFirstSpaceOnly etc. |
8 |
Mysterie |
524 |
26. März 2009, 16:34 Mysterie  |
 |
Excel VBA (Makros): Mit Scheduled Task Datei in selber Excel Instanz öffnen |
0 |
Tobsy |
530 |
21. Okt 2008, 18:01 Tobsy  |
 |
Excel Formeln: zuordnung 3 arbeitsblätter, indirekt, bindestriche heraus |
2 |
Tom M. |
313 |
04. März 2008, 12:12 Tom M.  |
 |
Excel VBA (Makros): Schaltfläche nicht zentriert |
0 |
Pinsel63 |
201 |
03. März 2008, 22:54 Pinsel63  |
| |