Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1720to1724
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Grafik in Zellen zentrieren mit VBA

Grafik in Zellen zentrieren mit VBA
17.11.2019 11:06:08
Oli
Hallo zusammen,
wie kann ich in einer Spalte C - mehrere Bilder mit VBA zentrieren?
Hab mir schon einmal was rausgesucht - aber dieser Code zentriert nur die Spalte F und nicht C.
Sub Zentrieren()
Dim shp As Shape
Dim x As Double
x = Cells(1, 6).Left + Cells(1, 6).Width / 2
For Each shp In ActiveSheet.Shapes
shp.Left = x - shp.Width / 2
Next
End Sub
Danke für eure Hilfe.
OliWer

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Grafik in Zellen zentrieren mit VBA
17.11.2019 11:25:44
MB12
Hallo Oli Wer oder Was,
Spalte F = 6
Spalte C = 3
Gruß, Margarete
AW: Grafik in Zellen zentrieren mit VBA
17.11.2019 12:36:40
Oli
Danke Margarete, funktioniert einwandfrei. Kleines Problem nur, ich benutze eine Schaltfläche - die diese Funktion/Makro ausführt - und genau diese Funktion zentriert dieses Schaltfläche jetzt auch in Spalte C. Kann ich irgendwie das Makro für einen bestimmten Bereich festlegen, sodass die Schaltfläche aussen vor bleibt?
AW: Grafik in Zellen zentrieren mit VBA
17.11.2019 12:43:33
Werner
Hallo,
und was für eine "Schaltfläche"?
Aus den Formularsteuerelementen oder ActiveX?
Gruß Werner
AW: Grafik in Zellen zentrieren mit VBA
17.11.2019 12:48:29
Oli
Hallo Werner,
es handelt sich um einen Schlatfläche/Button aus dem Formularsteuerelementen.
Grüße
Oli Wer
Anzeige
AW: Grafik in Zellen zentrieren mit VBA
17.11.2019 12:49:39
Werner
Hallo,
dann so:
Sub Zentrieren()
Dim shp As Shape, x As Double
x = Cells(1, 3).Left + Cells(1, 3).Width / 2
For Each shp In ActiveSheet.Shapes
If shp.Name Like "Button*" Then
Else
shp.Left = x - shp.Width / 2
End If
Next
End Sub
Gruß Werner

303 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige