Office: Bilder in Zelle zentrieren

Perfectdark · 20. September 2008

Wie geht das per VBA?

(oder auch per Menu?)

Mit text ist es einfach aber bei bildern?

:)

EarlFred · 22. September 2008

Hallo Perfectdark,

per VBA geht das z. B. mit Positionsberechnung über Top bzw. Left und ein bisschen Mathematik:

Code:

Sub bildindiemitte()
Dim Bild As Shape
Dim Zelle As Range
Set Bild = ActiveSheet.Shapes("Picture 1")
Set Zelle = [B2]

Bild.Top = Zelle.Top + (Zelle.Height - Bild.Height) / 2
Bild.Left = Zelle.Left + (Zelle.Width - Bild.Width) / 2

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

Ich habe jetzt aber keinerlei Abfragen eingebaut, ob die Zelle auch groß genug ist für das Bild. Das müsstest Du ggf. noch machen, falls nötig.

Grüße
EarlFred

Perfectdark · 22. September 2008

ok, gibt also tatsächlich keine intergierte Funktion. Man muss also selbst basteln.

Set Bild = ActiveSheet.Shapes("Picture 1")

Angenommen ich hab 1 spalte mit bildern und mache eine schleife über diese spalte:

for each cell in Range...
Set Bild = Bild in der aktuellen zelle (name unbekannt)

EarlFred · 22. September 2008

Hallo Perfectdark,

sorry, komm erst jetzt zum Schreiben.

Für folgendes Makro musst Du alle Bilder markieren (z. B. über Symbolleiste "Zeichnen|Objekte markieren") und Excel zentriert diese dann für Dich. Über Range zu arbeiten war mir dabei zu umständlich....

Code:

Option Explicit
Sub bildindiemitte()
'Zentriert ausgewählte Objekte in den dazugehörigen Zellen
Dim Bild As Object
Dim Zelle As Range

For Each Bild In Selection
With Bild.TopLeftCell
Set Zelle = Cells(.Row, .Column)
End With
Bild.Top = Zelle.Top + (Zelle.Height - Bild.Height) / 2
Bild.Left = Zelle.Left + (Zelle.Width - Bild.Width) / 2
Next Bild

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

Grüße
EarlFred

Perfectdark · 22. September 2008

ok danke werde das ausprobieren.

Office: Bilder in Zelle zentrieren

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