PDA

Vollständige Version anzeigen : Bilder zentrieren


Caro1109
19.07.2012, 10:26
Hallo zusammen,

ich habe jetzt schon einiges getestet und auch geggogelt, aber noch keine passende Hilfe gefunden.
Ich füge Bilder ein, dessen Bildname in einer Zelle steht. Die Bilder sollen allerdings zentriert eingefügt werden. Wie mache ich das?
Anbei mein bereits vorhandener Code:

Private Sub CommandButton1_Click()

Dim currentpath
Dim Bild, pfad
Dim i As Integer

i = 2

currentpath = "xxx"
On Error Resume Next


Do Until Tabelle1.Cells(i, 3) = ""

Bild = Tabelle1.Cells(i, 3).Text

pfad = currentpath & "\Bilderarciv\" & Bild & ".jpg"
Tabelle1.Cells(i, 2).Select

ActiveSheet.Pictures.Insert(pfad).Select
Selection.ShapeRange.Height = 58.5

Rows(i).RowHeight = 61

Tabelle1.Columns("B:B").ColumnWidth = 11

i = i + 1
Loop

End Sub


DANKE!!

Gruß
Caro