Distancia entre Formas

Hola,

Tal vez algo asi:

Sub Macro2()
Dim dist As Double, x As Double
With ActiveSheet
With .Shapes("Rectangle 1")
x = .Left + .Width
End With
dist = .Shapes("Rectangle 2").Left - x
End With
MsgBox dist
End Sub

Saludos,
KL


"Grupos de Noticias" wrote in message news:OrJ1SUD$
Mostrar la cita

Saludos.
En P7 tengo un Cuadrado(A) que mide 2 x 2 o sea que cubre (P7,P8,Q7 y Q8).
En AF7 tengo un Rectángulo(B) que mide 1 x 2 o sea que cubre(AF7 y AF8)
En AC15 tengo un Rectángulo(C) que mide 1 x 2 o sea que cubre(AC15 y AC16)
si quiero saber las distancias entre las diversas formas utilizo
CONTAR.BLANCO(celda donde termina una forma:celda donde empieza la otra forma)
El procedimiento cuando son demasiadas formas, para conocer las distancias entre unas y otras, se hace muy dispendioso.
Existe alguna manera mejor de automatizar el cálculo de dichas distancias?

Gracias.
Cordialmente

Hola KL.
Me podrias explicar donde colocar la Macro?
Por favor paso a paso,que hace la Macro?

Gracias.
Cordialmente

"KL" escribio en el mensaje
news:uJltzoD$
Mostrar la cita

Hola,

Tal vez algo asi:

Sub Macro2()
Dim dist As Double, x As Double
With ActiveSheet
With .Shapes("Rectangle 1")
x = .Left + .Width
End With
dist = .Shapes("Rectangle 2").Left - x
End With
MsgBox dist
End Sub

Saludos,
KL


"Grupos de Noticias" wrote in message
news:OrJ1SUD$
Mostrar la cita

Saludos.
En P7 tengo un Cuadrado(A) que mide 2 x 2 o sea que cubre (P7,P8,Q7 y
Q8).
En AF7 tengo un Rectángulo(B) que mide 1 x 2 o sea que cubre(AF7 y AF8)
En AC15 tengo un Rectángulo(C) que mide 1 x 2 o sea que cubre(AC15 y
AC16)
si quiero saber las distancias entre las diversas formas utilizo
CONTAR.BLANCO(celda donde termina una forma:celda donde empieza la otra
forma)
El procedimiento cuando son demasiadas formas, para conocer las
distancias entre unas y otras, se hace muy dispendioso.
Existe alguna manera mejor de automatizar el cálculo de dichas
distancias?

Gracias.
Cordialmente

Hola,

Mostrar la cita

Me podrias explicar donde colocar la Macro?

En cualquier modulo - actua sobre la hoja activa

Mostrar la cita

Por favor paso a paso,que hace la Macro?

declara las variables
Mostrar la cita

Mostrar la cita

Dim dist As Double, x As Double

usa la construccion With...End With para no repetir la referencia a la hoja
Mostrar la cita

Mostrar la cita

With ActiveSheet

anida otra construccion With...End With para no repetir la referencia al primer rectangulo
Mostrar la cita

Mostrar la cita

With .Shapes("Rectangle 1")

asigna a la variable x la suma de los valores de la distancia entre el lado izquierdo del primer rectangulo respecto al borde
izquierdo de la hoja y el ancho de dicho rectangulo
Mostrar la cita

Mostrar la cita

x = .Left + .Width
End With

asigna a la variable dist la resta del valor de la distancia entre el lado izquierdo del segundo rectangulo respecto al borde
izquierdo de la hoja y la variable x
Mostrar la cita

Mostrar la cita

dist = .Shapes("Rectangle 2").Left - x
End With

Saca un mensaje con la variable dist que es la distancia entre los dos rectangulos
Mostrar la cita

Mostrar la cita

MsgBox dist
End Sub

Este codigo no es una solucion completa sino una pista para que veas que propiedades del objeto Shape te podrian ayudar en tu tarea.

Saludos,
KL

hola chicos

para añadir a la propuesta de KL, a mi me vinieron muy bien estos
codigos de la respuesta nº 7 (creo) de esta conversacion

http://tinyurl.com/yz397a

un saludo
Ivan

Hola KL.
Coloco la Macro en un Modulo creado,dibujo dos Rectangulos en la
Hoja1,guardo y no me muestra nada

Gracias.
Cordialmente

"KL" escribio en el mensaje
news:OoMEP7F$
Mostrar la cita

Hola,

Mostrar la cita

Me podrias explicar donde colocar la Macro?

En cualquier modulo - actua sobre la hoja activa

Mostrar la cita

Por favor paso a paso,que hace la Macro?

declara las variables
Mostrar la cita

Mostrar la cita

Dim dist As Double, x As Double

usa la construccion With...End With para no repetir la referencia a la
hoja
Mostrar la cita

Mostrar la cita

With ActiveSheet

anida otra construccion With...End With para no repetir la referencia al
primer rectangulo
Mostrar la cita

Mostrar la cita

With .Shapes("Rectangle 1")

asigna a la variable x la suma de los valores de la distancia entre el
lado izquierdo del primer rectangulo respecto al borde izquierdo de la
hoja y el ancho de dicho rectangulo
Mostrar la cita

Mostrar la cita

x = .Left + .Width
End With

asigna a la variable dist la resta del valor de la distancia entre el
lado izquierdo del segundo rectangulo respecto al borde izquierdo de la
hoja y la variable x
Mostrar la cita

Mostrar la cita

dist = .Shapes("Rectangle 2").Left - x
End With

Saca un mensaje con la variable dist que es la distancia entre los dos
rectangulos
Mostrar la cita

Mostrar la cita

MsgBox dist
End Sub

Este codigo no es una solucion completa sino una pista para que veas que
propiedades del objeto Shape te podrian ayudar en tu tarea.

Saludos,
KL