| 
    
     |  | 三角形の頂点ってなんのことですか 黄色い◇のこといっているのでしょうか?
 マクロで記録するとわかりますが・・・
 
 Selection.ShapeRange.Adjustments.Item(1) = 1# ' 右
 Selection.ShapeRange.Adjustments.Item(1) = 0# ' 左
 Selection.ShapeRange.Adjustments.Item(1) = 0.5 ' 真ん中
 
 ' 左端
 Cells(1, 1) = Selection.ShapeRange.Left
 Cells(1, 2) = Selection.ShapeRange.Top + Selection.ShapeRange.Height
 ' 右端
 Cells(2, 1) = Selection.ShapeRange.Left + Selection.ShapeRange.Width
 Cells(2, 2) = Selection.ShapeRange.Top + Selection.ShapeRange.Height
 
 ' 上の座標
 Cells(3, 2) = Selection.ShapeRange.Top
 Cells(3, 1) = Selection.ShapeRange.Left + Selection.ShapeRange.Width _
 * Selection.ShapeRange.Adjustments.Item(1)
 
 |  |