title image


Smiley Re: Einfügen Grafik + Dateinamen per VBA
Hallo



1)

Wie kann ich einen Dialog anzeigen, welcher es dem Benutzer erlaubt, einen Ordner bzw. eine Datei auszuwählen?



2)

wie folgt:



Bye



Private Const Pfad = "C:\Eigene Dateien\Bilder"Private Const Filter = "jpg,gif,bmp"Sub GrafikenInTabelleEinbringen()  Dim oTable As Table, oCell As Cell, oILS As InlineShape, oPara As Paragraph  Dim x() As String  If Not Selection.Information(wdWithInTable) Then    MsgBox "Die Einfügemarke befindet sich nicht in einer Tabelle."    Exit Sub  End If  Set oTable = ActiveDocument.Tables(1)  AnzZellen = oTable.Range.Cells.Count  Extension = Filter & ","  i = -1  ofs = InStr(Extension, ",")  While ofs > 0    chk = Dir(Pfad & "\*." & Left(Extension, ofs - 1))    While Not chk = ""      i = i + 1      ReDim Preserve x(i)      x(i) = Pfad & "\" & chk      chk = Dir    Wend    Extension = Mid(Extension, ofs + 1)    ofs = InStr(Extension, ",")  Wend  If i = -1 Then    MsgBox "Es wurden keine Bilder gefunden, welche die Kriterien erfüllen."    Exit Sub  End If  tmp = "Es wurden " & i + 1 & " Grafiken, welche die Kriterien erfüllen gefunden."  tmp = tmp & vbCr & "Die Tabelle enthält " & AnzZellen & " Zellen."  tmp = tmp & vbCr & vbCr & "Möchten Sie fortfahren?"  If MsgBox(tmp, vbOKCancel) = vbCancel Then Exit Sub  WordBasic.SortArray x()  i = -1  For Each oCell In oTable.Range.Cells    i = i + 1    Set oILS = ActiveDocument.InlineShapes.AddPicture(FileName:=x(i), _       LinkToFile:=False, SaveWithDocument:=True, Range:=oCell.Range)    oILS.Range.InsertAfter Chr(13) & x(i)    Set oPara = oILS.Range.Paragraphs(1).Next    oPara.Style = wdStyleCaption    oPara.Range.LanguageID = wdNoProofing    If i = UBound(x) Then Exit For  NextEnd Sub





Häufig gestelllte Fragen zu MS Word und Word-VBA
Index Inhalt



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: