Excel - "escribir" píxeles sobre un shape

por si quieres hacer una prueba

Private Declare Function GetDC Lib "user32" ( _

                      ByVal hwnd As Long) As Long

Private Declare Function ReleaseDC Lib "user32" ( _

                      ByVal hwnd As Long, ByVal hdc As Long) As Long

Private Declare Function GetPixel Lib "gdi32" ( _

                      ByVal hdc As Long, ByVal x As Long, _

                      ByVal y As Long) As Long

Private Declare Function SetPixel Lib "gdi32" ( _

                      ByVal hdc As Long, ByVal x As Long, _

                      ByVal y As Long, ByVal crColor As Long) As Long

Private Sub p()

    Dim x As Long    ' abscisa

    Dim y As Long    ' ordenada

    Dim hdc As Long   ' handle device context

    hdc = GetDC(0)

    For y = 0 To 1000

        For x = 0 To 100

            SetPixel hdc, x, y, vbYellow

        Next

    Next

    ReleaseDC 0, hdc

End Sub

No, no lo he hecho (todavía).

Hace unos años hice la conversión de una foto a caracteres ascii (supongo que lo habrás visto alguna vez), pero esto es otra cosa.

En principio pretendo copiar todos los píxeles con la misma densidad que en la foto.

para copiarlos supongo que tendré que hacerlo con la api SetPìxel. Estoy en la fase de estudio del tema.

Hola pepeeeeee, conociéndote he de suponer que ya lo has resuelto...

Una pregunta de neófito: ¿cuantos píxels por pulgada tendrá la imagen?, ¿es indiferente?. ¿cómo los rellenas?

Saludos (seguiré haciendo preguntas),

Xavier

Pues vamos a ello:

Lo que quiero es que, sobre un rectángulo que previamente he insertado en la hoja, aparezca una imagen "poco a poco" y escribiendo los píxeles correspondientes de forma aleatoria hasta agotarlos. Es un efecto que todos hemos visto, alguna vez, en televisión.

He pensado dos formas de atacar el problema, pero admito cualquier otra:

Solución 1: Inserto un rectángulo en blanco y relleno los píxeles de la imagen aleatoriamente hasta agotarlos.

Solución 2: Oculto la foto detrás de un rectángulo en blanco y hago transparentes los píxeles del rectángulo en blanco aleatoriamente hasta agotarlos.

PD: Sin fórmulas Héctor, que te conozco. (ja ja ja)

un saludo.

             Javier.

lo difícil (viniendo de ti) es que la pregunta haya sido formulada al más puro estilo de "adivinen lo que estoy pensando" y disculpando que me apropie de una expresión acuñada por ti, para fundamentar alguna propuesta: (como dijera Jack el destripador) "vamos por partes":

1. "shapes" es una colección de amplia gama, exactamente:

• sobre que tipo de shapes necesitas actuar ?
• cómo llegó esa shape a la hoja ? (está en el disco, vino de una pagina web, ???)

2. una vez incrustada una "shape" en una hoja, interviene un sin-numero de factores que pudieran distorsionar tanto las dimensiones "reales" de la shape como de la ubicación de sus pixeles (tú conoces cuales son esos factores, así que ni siquiera los mencionaré)
3. al estar un objeto incrustado en una hoja sobre lo que se ha dado en llamar "la capa de dibujo", es más seguro que probable que "escribir" en determinados pixeles de la shape sea también sobre la capa de dibujo (NO sobre "la shape")
4. si quieres ampliar cualquier información que te hayas "dejado en el tintero", procura explicarla como para que la entienda un párvulos (con manzanitas de ser necesario)

saludos,

hector.