blog/2006年10月15日/Excel矢印マクロ - 0141029 @wiki

#blognavi

最近エクセルを使わないといけないので、非常にストレスがたまっております。マクロとやらをはじめて作ってみました。といってもweb上で雛型を見つけたので、そのまんまですけど。

AddShapeは、

expression.AddShape(Type, Left, Top, Width, Height)

AddLineは、

expression.AddLine(BeginX, BeginY, EndX, EndY)

▲ msoArrowheadTriangle
◆ msoArrowheadDiamond
○ msoArrowheadOval
無 msoArrowheadNone（ただし、サイズを'0'に指定しないと自動で'□'が入ってしまう）

• 横矢印（始点はmsoArrowheadNone、終点はmsoArrowheadDiamond）

Sub horizon()
 Dim TP, LF, WD
 TP = Selection.Top + (Selection.Height / 2)
 LF = Selection.Left
 WD = Selection.Width
 ActiveSheet.Shapes.AddShape(msoArrowheadNone, LF, TP, 0, 0).Select
 ActiveSheet.Shapes.AddLine(LF, TP, LF + WD, TP).Select
 Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadDiamond
End Sub

• 縦矢印（始点はmsoShapeOval、終点はmsoArrowheadTriangle）

Sub vertical()
 Dim TP, LF, WD
 TP = Selection.Top
 LF = Selection.Left + (Selection.Width / 2)
 HD = Selection.Height
 ActiveSheet.Shapes.AddShape(msoShapeOval, LF - 3, TP, 6, 6).Select
 ActiveSheet.Shapes.AddLine(LF, TP + 6, LF, TP + HD).Select
 Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadTriangle
End Sub

リンク

• 「事務処理を飛躍的に短縮できる」かも知れない、初心者向けExcelマクロ入門講座
• 教えてGOO!（ある範囲にオートシェイプの矢印マークを書き込む）
• 教えてGOO!（範囲指定後矢印線を引くマクロの作り方）
• マクロいろいろ

カテゴリ: [pc] - &trackback() - 2006年10月15日 15:07:32

#blognavi