Spaßprojekt, Bild pixelweise

[Hobbes95]

Hallo,

neulich war mir mal etwas langweilig, und ich habe mich kurzerhand entschieden etwas auszuprobieren. Ich wollte ein Bild nehmen, die Farbe in Excel Pixel für Pixel auslesen und diese in einem Arbeitsblatt Zelle für Zelle wieder einfügen. Den nötigen Code habe ich relativ schnell im Web gefunden, aber wenn ich es aktiviere, stürzt das Programm ab, in es gibt keine Rückmeldung mehr. Liegt das möglicherweise daran, dass VBA mit einer fast 1000x1000 Schleife etwas überfordert ist?
In der Tabelle zum Ausprobieren einfach auf das Bild klicken, davor aber bitte alles abspeichern.

[schauan]

Hallöchen,

hm, bei mir stolpert er schon über die erste Farbe. Da könnte eventuell das helfen:

Code:

Sub RGB_Farbe()
Dim Farbe As Long, R As Integer, G As Integer, B As Integer
Farbe = ActiveCell.Interior.Color
R = Farbe And 255
G = (Farbe \ 256) And 255
B = Farbe \ 65536
MsgBox "Rot: " & R & Chr(10) & "Grün: " & G & Chr(10) & "Blau: " & B
End Sub

Na ja, und dann hat Excel ab 2007 irgendwo so um 64.000 eine Grenze bei der Anzahl unterschiedlicher Formate. Eventuell hilft da, wenn Du
- ein kleineres Bild nimmst
- geringere Farbtiefe hast
- Farben in Bereiche einteilst / "rundest" und einträgst