Sub SchemeColorUebersicht()
 ' Erstellt in einer neuen Arbeitsmappe eine Übersicht der
 ' SchemeColor-Nummern mit zugehöriger Farbe.
 ' Uwe Küstner 20061212
 Dim iColor As Byte, iX As Byte, iY As Byte, iZ As Byte
 Dim lngRed As Long, lngGreen As Long, lngBlue As Long
 Dim rngB As Range
 Application.ScreenUpdating = False
 Workbooks.Add xlWBATWorksheet
 ActiveSheet.Name = "SchemeColors"
 For iY = 2 To 31 Step 3
 For iX = 2 To 25 Step 3
  iColor = iColor + 1
  Set rngB = Range(Cells(iY, iX), Cells(iY + 2, iX + 2))
  With ActiveSheet.Shapes.AddShape(msoShapeBevel, rngB.Left, rngB.Top, _
   rngB.Width, rngB.Height)
  With .Fill
   .ForeColor.SchemeColor = iColor
   lngRed = (.ForeColor And vbRed)
   lngGreen = (.ForeColor And vbGreen) \ &H100
   lngBlue = (.ForeColor And vbBlue) \ &H10000
  End With
  iZ = _
   (((0.3 * lngRed) + (0.59 * lngGreen) + (0.11 * lngBlue)) < 150) * -255
  .Line.Visible = msoFalse
  With .TextFrame
   .Characters.Text = "SchemeColor: " & iColor & vbLf & _
     "RGB(" & lngRed & ", " & lngGreen & ", " & lngBlue & ")" & _
     vbLf & "Hex: &H" & _
     Format(Hex(lngRed), "00") & _
     Format(Hex(lngGreen), "00") & _
     Format(Hex(lngBlue), "00") & ""
   .Characters.Font.Name = "Tahoma"
   .Characters.Font.Size = 7
   .Characters.Font.Color = RGB(iZ, iZ, iZ)
   .HorizontalAlignment = xlCenter
   .VerticalAlignment = xlCenter
  End With
  End With
 Next iX
 Next iY
 Cells.ColumnWidth = 4.5
 Cells.RowHeight = 13
 Rows(1).RowHeight = 6
 Application.ScreenUpdating = True
End Sub