|
Grafikdatei aus Exel heraus über Schaltfläche öffnen
|
| Autor |
Nachricht |
curt55
Im Profil kannst Du frei den Rang ändern
Verfasst am: 07. Feb 2010, 14: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, 14: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, 18: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, 22: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, 22: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, 22: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, 01: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, 07: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, 14: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, 03: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, 20: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: 09. Feb 2010, 23: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, 08: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, 10: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: *T*Schaltfläche ohne Ma(c)kro |
5 |
Rattlesnake |
124 |
17. Jan 2010, 22:00 Zero  |
 |
Excel VBA (Makros): Excel soll datei per Button öffnen und füllen |
4 |
dorli |
460 |
07. Okt 2009, 12:44 dorli  |
 |
Excel Formate: Excel 2003 --> *.csv - Dateien öffnen? |
16 |
Petersen |
13951 |
02. Okt 2009, 10:46 Thomas Ramel  |
 |
Excel VBA (Makros): Workbook schließen -> Userform öffnen |
5 |
maiq |
431 |
23. Sep 2009, 20:30 maiq  |
 |
Excel Formeln: VIDEO_TS Ordner über einen Hyperlink in Exel öffnen |
3 |
daniel54321 |
590 |
24. Jul 2009, 21:27 Atze2503  |
 |
Excel VBA (Makros): Makro ausführen beim öffnen einer neuen Arbeitsmappe, ändern |
5 |
funky_escobar |
1165 |
18. Mai 2009, 14:21 Gast  |
 |
Excel VBA (Makros): "Link" um eine bestimmte excel worksheet-seite zu |
2 |
Karola |
157 |
12. Nov 2008, 11:32 Gast  |
 |
Excel VBA (Makros): Mit Scheduled Task Datei in selber Excel Instanz öffnen |
0 |
Tobsy |
365 |
21. Okt 2008, 17:01 Tobsy  |
 |
Excel Formeln: Datei soll immer mit Tabellenblatt xy öffnen |
16 |
pinmoney |
482 |
09. Jun 2008, 11:22 pinmoney  |
 |
Excel VBA (Makros): Neue Mappe/neues Sheet über Listbox öffnen |
1 |
Gast |
877 |
14. Mai 2008, 23:24 losgehts  |
 |
Excel VBA (Makros): Zellbereich kopieren, neue Datei öffnen usw... |
1 |
Basti87 |
1415 |
23. Apr 2008, 20:35 Mäxchen  |
 |
Excel VBA (Makros): über Excel-Tabelle Ordner öffnen |
20 |
stefanbla81 |
2029 |
13. März 2008, 17:15 stefanbla81  |
| |