Copy color from image and assign it to a shape

I try to do this using Corel X6. Is this possible?

A small workaround may help you:

Define a rect with width and height 1 at the location you want to get the RGB-Code.

Export this rectangle as bitmap to a file

Open this file as a binary low level file and read the content into an array of byte
Don't forget to close it!

The 54.th byte of the array has the value of blue, 55 green and 56 red.

This Q&D code shows you how to do this:


Sub TestIt()

Dim MyRec As Rect, ExpFlt As ExportFilter
Dim TmpFN As String, fIO As Integer, Bytes(58) As Byte

TmpFN = "C:\Temp\2019\Tmp.Bmp"

ActiveDocument.Unit = cdrPixel

Set MyRec = New Rect
MyRec.SetRect 200, 600, 1, 1

Set ExpFlt = ActiveDocument.ExportBitmap(TmpFN, cdrBMP, cdrCurrentPage, cdrRGBColorImage, 1, 1, ExportArea:=MyRec)
ExpFlt.Finish

fIO = FreeFile
Open TmpFN For Binary As fIO
Get #fIO, , Bytes
Close #fIO

MsgBox Str(Bytes(56)) + Str(Bytes(55)) + Str(Bytes(54))

End Sub

Interesting and very smart approach!

I'll try it.

Thank you very much NudeFan!