Office: (Office 2010) Excel Fotos einfügen mit VBA auf mehreren Sheets

Hi Zusammen,

leider bin ich noch völliger Anfänger im Bereich Makros, bin aber gerade dabei, mich reinzuarbeiten. Habe nachfolgendes Makro ans Laufen bekommen, mit dem ich Bilder in meine Excel Sheets einbauen kann:


Sub GraphicfileInZelleEinfuegen()
Dim strPfad As String
Dim strDatei As String
Dim lngZeile As Long
Dim lngSpalte As Long
Dim wksTabelle As Worksheet
Dim shpNeu As Object

lngSpalte = 3 ' =C
Set wksTabelle = ActiveWorkbook.Worksheets("Tabelle1")
For lngZeile = 3 To 3
strPfad = wksTabelle.Cells(lngZeile, 1).Text
strDatei = wksTabelle.Cells(lngZeile, 2).Text
If Right(strPfad, 1) <> "\" Then strPfad = strPfad & "\"
Set shpNeu = wksTabelle.Pictures.Insert(strPfad & strDatei)
shpNeu.Top = wksTabelle.Rows(lngZeile).Top
shpNeu.Height = wksTabelle.Rows(lngZeile).Height
shpNeu.Left = wksTabelle.Columns(lngSpalte).Left
shpNeu.Width = wksTabelle.Columns(lngSpalte).Width
Next

End Sub

Hiermit habe ich aber leider das Makro an ein Worksheet "Tabelle1" gefesselt. Ich möchte nun aber das Worksheet mehrfach duplizieren und jeweils andere ID's verwenden, also unterschiedliche Fotos einfügen.
Vielleicht noch zum Hintergrund: Ich möchte so genannte Fact Sheets erstellen in dem Sinne als dass jedes Fact Sheet ein Worksheet ist.
Jede Hilfe bringt mich weiter!
Viele Grüße

 

Hi,

vielleicht solltest du anstelle Set wksTabelle = ActiveWorkbook.Worksheets("Tabelle1") diese Zeile so schreiben:

Code:

[I]Set wksTabelle = [COLOR=#0000ff]ActiveSheet[/COLOR][/I]

Damit wird kein spezifisches, im Code festgelegtes, sondern immer das gerade aktive Tabellenblatt angesprochen.


Außerdem: weshalb benutzt du eine Schleife For lngZeile = 3 To 3 wenn du nur 1 einzige Zeile ansprechen willst? Da reicht doch dieses:

Code:

strPfad = wksTabelle.Cells(3, 1).Text
strDatei = wksTabelle.Cells(3, 2).Text
If Right(strPfad, 1) <> "\" Then strPfad = strPfad & "\"
Set shpNeu = wksTabelle.Pictures.Insert(strPfad & strDatei)
shpNeu.Top = wksTabelle.Rows(3).Top
shpNeu.Height = wksTabelle.Rows(3).Height
shpNeu.Left = wksTabelle.Columns(3).Left
shpNeu.Width = wksTabelle.Columns(3).Width

Bis später,
Karin