Bilder in Exzel einfügen ohne Verknüpfung

Hallo,
in meiner Tabelle habe ich in Spalte A Pfadangaben für Bilder zu stehen.
Mit nachfolgenden Makro, kann ich jetzt in Spalte B mir die Bilder in der Tabelle anzeigen lassen.
Leider werden die Bilder nur mit einer Verknüpfung hinterlegt ,die ich nachträglich
über Excel nicht aufheben kann. Folglich sind die Bilder in der Datei auf einem anderen PC nicht mehr sichtbar, da der Quellordner fehlt.
Gibt es die Möglichkeit Bilder per VBA auch richtig in die Datei einzufügen ?
Am besten auf Basis des gezeigten Makroabschnitts .
Dim Pfad As String, Wiederholungen As Long
For Wiederholungen = 3 To Range("A500").End(xlUp).Row
If Dir(Cells(Wiederholungen, 1) & ".jpg") "" Then
With ActiveSheet.Pictures.Insert(Cells(Wiederholungen, 1) & ".jpg")
.Height = Cells(Wiederholungen, 2).Height
.Top = Cells(Wiederholungen, 2).Top
.Left = Cells(Wiederholungen, 2).Left
.Width = Cells(Wiederholungen, 2).WidthEnd With
End If
Next
Vielen Dank im Vorraus.
MfG floh

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Floh,
um das Handling MEINER Bilderliste nicht zu erschweren hier eine Alternative.
Tausche die folgende Routine aus. Anstelle eines Kommentars erscheint nun eine Bildvorschau.

Sub Choise_Pictures()
'Source FileDialog :http://www.office-loesung.de
Dim ws As Worksheet
Dim iSheetsCount As Integer
Dim dlgOpen     As FileDialog
Set dlgOpen = Application.FileDialog(msoFileDialogOpen)
With dlgOpen
.AllowMultiSelect = True 'vorher false
.Filters.Clear  'löscht 
.Filters.Add "Images", "*.gif; *.jpg; *.jpeg; *.bmp; *.tif; *.tiff; *.png"
.FilterIndex = 1    '1 " Alle Dateien *.*
.Show
If .SelectedItems.Count = 0 Then
MsgBox ("Sie haben keine Bilddatei(en) ausgewählt!")
End
End If
If_PicList_exists_then_move_it_to_the_end
Set ws = Sheets(PICLIST)
ws.Cells.ClearContents
ws.Cells(1, 1).Formula = " Nr "
ws.Cells(1, 2).Formula = "Adresse und Bildernamen"
ws.Cells(1, 3).Formula = "Kommentare ggf. "
ws.Cells(1, 4).Formula = "Vorschaufenster"
For iPicCount = 1 To .SelectedItems.Count
ws.Cells(iPicCount + 1, 1).Formula = iPicCount
ws.Cells(iPicCount + 1, 2).Formula = .SelectedItems(iPicCount)
ws.Cells(iPicCount + 1, 3).Formula = "Kommentar " & iPicCount
ws.Cells(iPicCount + 1, 4).Select
With ActiveCell
.ClearComments
.AddComment
'.Comment.Text Text:="Optional"
'.Comment.Shape.TextFrame.Characters.Font.Bold = True
.Comment.Shape.TextFrame.AutoSize = True
.Comment.Visible = False
.Comment.Shape.Fill.UserPicture ws.Cells(iPicCount + 1, 2).Formula
.Comment.Shape.Width = 200  '

Tschüss!
Franz D.

Beliebteste Forumthreads (12 Monate)

Bilder in Exzel einfügen ohne Verknüpfung

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

317 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Bilder in Exzel einfügen ohne Verknüpfung

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

317 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread