Office: Bilder in Zelle zentrieren

kollmerized · 1. November 2016

Ich habe eine Liste mit 500 Zeilen. In jede Zeile soll ein Bild. Diese Bilder haben alle unterschiedliche Kantenlängen. Ich habe die Zellen in der Spalte in der die Bilder sind (alle in der gleichen Spalte), in Breite und Höhe auf das Maximum eingestellt und alle Bilder darin sind kleiner als diese Maße, so dass sie direkt einer Zelle zugeordnet sind und die Liste gefiltert werden kann. Da das ganze aber sehr durcheinander aussieht würde ich die Bilder gerne in den Zellen zentrieren, finde aber keine Möglichkeit wie ich das bei ca. 500 Bildern am besten mache. Hat jemand eine Lösung?

:)

xlph · 2. November 2016

Code:

Public Sub CenterPicture()

Dim pic As Picture

Dim lngTopMargin As Long
Dim lngLeftMargin As Long

With Tabelle1

For Each pic In .Pictures

With pic

lngTopMargin = (.TopLeftCell.Height - .Height) / 2
lngLeftMargin = (.TopLeftCell.Width - .Width) / 2

If lngTopMargin > 0 Then
.Top = .TopLeftCell.Top + lngTopMargin
End If

If lngLeftMargin > 0 Then
.Left = .TopLeftCell.Left + lngLeftMargin
End If

End With

Next

Set pic = Nothing

End With

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: Bilder in Zelle zentrieren

Bilder in Zelle zentrieren

Bilder in Zelle zentrieren

Bilder in Zelle zentrieren - Similar Threads - Bilder Zelle zentrieren

Excel Summe bilden wenn bestimmtes Wort und Zahl in eine Zelle vorhanden

Bilder in Zelle mit Autofilter mitverschieben!

Bild mit Text aus Zelle verknüpfen

Erstellen eines Bilds aus Zellen, einem Diagramm oder einem Objekt in Excel

Bild aus Pfad in eine Zelle einfügen

Bilder in Zelle zentrieren

mehrere Bilder zu 1 Zelle verknüpfen