Forums Neueste Beiträge
 

suche in excel eine öffnen-dialog mit vorschau wie in powerpoint

28/08/2008 - 13:43 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 Thorsten Albers
28/08/2008 - 16:11 | Warnen spam
Thomas Fellner schrieb im Beitrag
...
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?



Deine Frage hat nichts mit Visual Basic zu tun sondern mit der verwendeten
Office-Anwendung und VBA (<> VB). Du solltest Dich an eine Newsgroup
wenden, die sich mit VBA und/oder mit der von Dir verwendeten
Office-Anwendung bzw. mit Office-Anwendungen im allgemeinen beschàftigt.

-
Thorsten Albers albers(a)uni-freiburg.de
-

Ähnliche fragen