各位好請問一下要如何在指定的欄位上新增一個箭頭符號如下圖巨集如下 其中這個座標直 要如何去計算出來呢? 因為儲存格大小變更的話 畫出來的位置就變了參數設定應該是這樣 (圖類型, X軸,Y軸,長度,箭頭上下高度)ActiveSheet.Shapes.AddShape(msoShapeRightArrow, 659, 73,89, 15).Select要問的是要如何知道 如何從欄位A6劃一個箭頭到A10的"座標值"及"長度"呢?
可以使用 Cells 的 Top, Left, Width, Height 屬性來得知儲存格的座標值下例是箭頭由 F1 到 J1Sub AAA()Dim x1, y1Dim x2, y2' F1x1 = ActiveSheet.Cells(1, 6).Lefty1 = ActiveSheet.Cells(1, 6).Top' J1x2 = ActiveSheet.Cells(1, 10).Left + ActiveSheet.Cells(1, 10).WidthActiveSheet.Shapes.AddShape(msoShapeRightArrow, x1, y1, x2 - x1, 15).SelectEnd Sub