makro: Suche öffnen-Dialog wie bei PowerPoint mit VorschauBereich

29/08/2008 - 08:18 von Thomas Fellner | Report spam
hallo,

ich programmiere gerade ein makro in excel welches hyperlinks von fotos in
zellen kopiert welche zuvor zur zeit mit einem commondialog ausgewàhlt
werden. Ich möchte lieber ein Öffenen-Fenster mit Vorschau sowie dies in
PowerPoint möglich ist. Gibt es da eine Möglichkeit?

Sub Linkseinfuegen()

Dim Dialog As Variant
Dim DateiPfad As String
Dim Datei As String
Dim row As Integer
Dim col As Integer
Dim weiter As Boolean
Dim blattname As String

Set Dialog = CreateObject("UserAccounts.CommonDialog")

row = ActiveCell.row
col = ActiveCell.Column
weiter = True

While weiter = True

Dialog.Filter =
"Fotos|*.jpg|Textdateien|*.txt|Excel-Arbeitsmappen|*.xls|Alle Dateien|*.*"
Dialog.ShowOpen
DateiPfad = Dialog.Filename

Datei = Right(DateiPfad, Len(DateiPfad) - InStrRev(DateiPfad, "\"))

Worksheets(1).Hyperlinks.Add anchor:=Worksheets(blattname).Cells(row,
col), Address:=DateiPfad, _
TextToDisplay:=Datei
Select Case MsgBox("Weitere Links einfügen?", _
vbYesNo Or vbQuestion Or vbDefaultButton1, "Show sub-folders - Yes /
No")
Case vbYes
weiter = True
Case vbNo
weiter = False
End Select
row = row + 1

Wend
On Error Resume Next

End Sub

Danke!

lg Thomas
 

Lesen sie die antworten

#1 stefan onken
29/08/2008 - 10:24 | Warnen spam
On 29 Aug., 08:18, Thomas Fellner
wrote:
hallo,

ich programmiere gerade ein makro in excel welches hyperlinks von fotos in
zellen kopiert welche zuvor zur zeit mit einem commondialog ausgewàhlt
werden. Ich möchte lieber ein Öffenen-Fenster mit Vorschau sowie dies in
PowerPoint möglich ist. Gibt es da eine Möglichkeit?



  Set Dialog = CreateObject("UserAccounts.CommonDialog")
  Dialog.Filter > "Fotos|*.jpg|Textdateien|*.txt|Excel-Arbeitsmappen|*.xls|Alle Dateien|*.*"
    Dialog.ShowOpen
    DateiPfad = Dialog.Filename




hallo Thomas,
die Vorschau gibt es auch im Excel(2003)-Datei/öffnen-Dialog (rechts
oben gibt es ein dropdown "Ansichten", darin die Option Vorschau).
Das kann man mE nicht per default einstellen, aber man kann SendKeys
verwenden:

SendKeys ("{tab 5} {right 5} {down 7}{enter}")
DateiPfad = Application.GetOpenFilename()

SendKeys ist allerdings mit Vorsicht zu geniessen.
Bilddateien werden im Dialog dann angezeigt, Exceldateien jedoch nur,
wenn bei Datei/Eigenschaften/Zusammenfassung die Option Vorschaugrafik
speichern aktiviert ist.

Gruß
stefan

Ähnliche fragen