SchemColor Index
11.01.2017 10:40:46
Gregor
Ich erstell per vba ein Portfolio mit Shapes. Diesen Shapes will ich die gleiche Farbe wie den entsprechenden Zellen zuordnen.
With ActiveCell
ActiveSheet.Shapes.AddShape(msoShapeOval, .Left, .Top, .Width, .Height).Select
With Selection.ShapeRange.Fill
.ForeColor.SchemeColor = 30
End With
With Selection.ShapeRange.Line
.ForeColor.SchemeColor = 30
End With
End With
Wie kann ich den SchemeColor.Index einer Zelle ermitteln, wie es beim Interior.ColorIndex möglich ist (Cells(1, 1) = Cells(1, 2).Interior.ColorIndex)?
Vielen Dank und Gruss
Gregor