Datum

Titel

25.04.2024 21:40:53

Excel Datenquelle aus dem Web mit Anmeldung?

25.04.2024 21:21:16

Zellkommentar in UserForm anzeigen und bearbeiten

25.04.2024 21:13:13

Kalenderwochen addieren

25.04.2024 21:06:05

Duplikate entfernen

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

704to708

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

Autoformen zufällig färben

Forumthread: Autoformen zufällig färben
5 Beiträge zu diesem Forumthread
Anzeige
300 Threads zu ähnlichen Themen
Top 100 Forumthreads

04.12.2005 18:58:19

Carsten

Hallo zusammen,
ich habe diese Frage bereits gestern im PowerPoint-Forum gestellt aber leider noch keine Antwort erhalten. Da die Zeit drängt und sich hier im Forum anscheinend mehr VBA-Könner tummeln verzeiht ihr mir hoffentlich, dass ich die Frage hier erneut stelle.
Ich habe eine Menge identischer Autoformen (&gt200) auf einem Arbeitsblatt und möchte jede Einzelne einfärben und zwar zufällig in rot, grün oder blau. Hat jemand eine Ahnung, wie ich das in VBA realisiere?
Danke für die Hilfe
Gruß
Carsten

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Autoformen zufällig färben

04.12.2005 19:12:51

Nepumuk
AW: Autoformen zufällig färben

05.12.2005 05:57:30

Carsten
AW: Autoformen zufällig färben

04.12.2005 19:14:27

Peter
Nachfrage: Autoformen zufällig färben

04.12.2005 19:16:19

Florian
AW: Nachfrage: Autoformen zufällig färben

05.12.2005 05:56:28

Carsten

AW: Autoformen zufällig färben

04.12.2005 19:12:51

Nepumuk

Hallo Carsten,
in Excel geht das so:

Public Sub test()
    Dim objShape As Shape
    Randomize Timer
    For Each objShape In ActiveSheet.Shapes
        If objShape.Type = msoAutoShape Then _
            objShape.DrawingObject.ShapeRange.Fill.ForeColor.SchemeColor = Int((3 * Rnd) + 10)
    Next
End Sub

Gruß
Nepumuk

AW: Autoformen zufällig färben

05.12.2005 05:57:30

Carsten

Hallo Nepumuk,
hat hervorragend geklappt, danke.
Carsten

AW: Autoformen zufällig färben

04.12.2005 19:14:27

Peter

Servus,
das dürfte schwierig sein. Hab nämlich keine Ahnung ob die Objecte bei PP genauso angesprochen werden. Bei Excel funzt es auf jeden Fall so. Lasse aber aufgrund desen mal offen.

Sub autform()
Dim shp As Shape
Dim intCol As Integer
For Each shp In Sheets("Tabelle1").Shapes
MsgBox shp.Name
intCol = Int((3 - 1 + 1) * Rnd + 1)
Select Case intCol
Case 1: intCol = 10
Case 2: intCol = 17
Case 3: intCol = 56
End Select
With shp
.Fill.ForeColor.SchemeColor = intCol
.Visible = msoTrue
.Fill.Solid
End With
Next
End Sub

MfG Peter

Nachfrage: Autoformen zufällig färben

04.12.2005 19:16:19

Florian

Hallo Carsten
Sind die Autoformen schon gezeichent oder werden die über VBA erstellt?
Sind ausschliesslich die einzufärbenden Autoformen auf dem Arbeitsblatt?
mfg
Flo

AW: Nachfrage: Autoformen zufällig färben

05.12.2005 05:56:28

Carsten

Hallo Flo,
die Autoformen sind vorhanden und neben den zu färbenden Formen ist nur eine weitere Form vorhanden die danach also einfach wieder so formatiert werden kann wie sie gebraucht wird.
Die Lösung von Nepumuk hat allerdings schon hervorragend funktioniert, mach Dir also keine Mühe mehr.
Danke
Carsten