Excel 2007 Tabelle mit Thumbnails erstellen(Makro)...

30/10/2008 - 13:37 von Wazlav G. | Report spam
Hallo Newsgroup,

ich bin vor Kurzem auf Excel 2007 umgestiegen. Hatte mir mal ein Makro
in Excel 2000 geschrieben, um den inhalt eines Ordners mit Fotos in
eine Tabelle zu schreiben(Pfad und Thumbnail) Kann man prima per mail
an Bekannte und Freunde schicken. Das Makro erstellt eine Liste mit
dem Inhalt eines Ordners und dann benutzt es den Pfad um die
Thumbnails zu erstellen.

<<<<<CODE>>>>>
Cells(Zeile, Spalte).Select

ActiveSheet.Pictures.Insert(Bild_name).Select

Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Height = 120#
Rows.RowHeight = 120
Selection.ShapeRange.Width = 85#
Zeile = Zeile + 1

<<<<<ENDE>>>>>

An dieser stelle hàngt sich Excel 2007 auf und meldet, dass er die
Eigenschaft Pictures nicht kennt.
Wurde das in Excel 2007 geàndert, wisst Ihr vielleicht mit welchen
Befehl man das in Excel 2007 macht?

Ich habe gegoogelt aber nichts gefunden dass mir weiter geholfen
hàtte.

THX
 

Lesen sie die antworten

#1 Claus Busch
30/10/2008 - 18:27 | Warnen spam
Hallo Wazlav,

Am Thu, 30 Oct 2008 05:37:55 -0700 (PDT) schrieb Wazlav G.:


ich bin vor Kurzem auf Excel 2007 umgestiegen. Hatte mir mal ein Makro
in Excel 2000 geschrieben, um den inhalt eines Ordners mit Fotos in
eine Tabelle zu schreiben(Pfad und Thumbnail) Kann man prima per mail
an Bekannte und Freunde schicken. Das Makro erstellt eine Liste mit
dem Inhalt eines Ordners und dann benutzt es den Pfad um die
Thumbnails zu erstellen.



deine Bildnamen stehen komplett mit Pfad in A1:A10.
Dann probiere es mal so, um die entsprechenden Bilder in Spalte B
einzufügen:

Sub BilderEinfuegen()

Dim rngZelle As Range
Dim pic As Picture

Columns("B").ColumnWidth = 40
For Each rngZelle In Range("A1:A10")
rngZelle.EntireRow.RowHeight = 85
Set pic = ActiveSheet.Pictures.Insert(rngZelle.Value)

With rngZelle.Offset(0, 1)
pic.Left = .Left
pic.Top = .Top
pic.Height = .EntireRow.RowHeight
End With
Next

End Sub


Mit freundlichen Grüssen
Claus Busch
Win XP Prof SP3 / Vista Ultimate
Office 2003 SP3 / 2007 Ultimate SP1

Ähnliche fragen