Macro dibujo

No estoy seguro de haber entendido qué es lo que necesitas. Si se trata de dibujar un óvalo --o de situarlo-- a una determinada distancia de la esquina superior izquierda de la pantalla, puedes usar algo parecido a:

ActiveSheet.Shapes.AddShape msoShapeOval, ActiveSheet.Cells(ActiveWindow.ScrollRow, ActiveWindow.ScrollColumn).Left + 50, ActiveSheet.Cells(ActiveWindow.ScrollRow, ActiveWindow.ScrollColumn).Top + 50, 144#, 58.5

En este caso, se crearía un óvalo 50 puntos a la derecha y por debajo de la celda situada en la esquina superior izquierda.
Un saludo.


Fernando Arroyo
MS MVP - Excel


"Luis Alberto Soliz" escribió en el mensaje news:fa5201c43e71$f909eba0$
Amigos:
Primera vez que entro en este interesante lugar. Soy
ingeniero civil y desarrollo muchas aplicaciones de la
ingeniería en Excel. Por ahor estoy desarrollando
software de aplicaciones que incluyen dibujos que los
realizao a través de macros (código VBA).

Mi porblema: deseo modificar por códico la ubicación del
dibujo de un Ovalo tambien generado por código. Lo que he
encontrado en una forma de moverlo en forma relativa a
las coordenadas que tiene, pero no encuentro la forma de
modificar su posición en coordenadas en relación al
sistema de coordenadas que usa excel, es decir, la
esquina superior izquierda de la hoja donde se dibuja.

Si alguien puede ayudarme lo agradecería mucho

Saludos Luis Alberto