Distancia entre Formas

30/10/2006 - 16:08 por Grupos de Noticias | Informe spam

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
xxxprogramasxxxenxxxcomputadorxx@xxgmail.xxcom

Siga el debate

5 respuestas

Tengo una respuesta

DRAGON AGE™: INQUISITION – Matadragones

Leer las respuestas

#1 KL

30/10/2006 - 16:43 | Informe spam

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$

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

Leer las otras respuestas

Preguntas similares

Busqueda sugerida :