CDR VBA测量两个对象距离的代码

在VBA (Visual Basic for Applications) 中，如果你需要测量两点之间（例如，两个形状对象或者坐标点）的距离，你可以使用 `DistanceTo` 方法或一些几何计算方法。这里是一个基本的例子，假设我们有两个对象 `Shape1` 和 `Shape2`，它们都有 `Left`, `Top`, `Width`, `Height` 属性，我们可以基于它们的位置信息来估算距离：

Sub MeasureDistance()
    Dim Shape1 As Shape, Shape2 As Shape
    Set Shape1 = ActiveSheet.Shapes('Shape1Name') ' 替换为实际的对象名
    Set Shape2 = ActiveSheet.Shapes('Shape2Name') ' 同理
    
    Dim Point1 As Variant ' 假设形状左上角为参考点
    Point1 = Shape1.Left + Shape1.Width / 2, Shape1.Top + Shape1.Height / 2
    
    Dim Point2 As Variant ' 假设Shape2同样有一个参照点
    Point2 = Shape2.Left + Shape2.Width / 2, Shape2.Top + Shape2.Height / 2
    
    ' 使用Pythagorean theorem (勾股定理) 计算两点间的直线距离
    Dim distance As Double
    distance = Sqr((Point2(0) - Point1(0))^2 + (Point2(1) - Point1(1))^2)
    
    MsgBox "The distance between the shapes is: " & distance & " units."
End Sub