FC2ブログ

オートシェイプを引く

2017–06–01 (Thu) 16:14
オートシェイプを引くマクロ


Sub 右上がりの線を引く()
ActiveSheet.Shapes.AddLine(Range(Selection.Address).Width + Range(Selection.Address).Left, Range(Selection.Address).Top, Range(Selection.Address).Left, Range(Selection.Address).Top + Range(Selection.Address).Height).Select
End Sub


Sub 右下がりの線を引く()
a = Selection(1).Address
b = Selection(Selection.Count).Address
BX = Range(a).Left
BY = Range(a).Top
EX = Range(b).Left + Range(b).Width
tate = Range(b).Row
yoko = Range(b).Column
EY = Cells(tate + 1, yoko).Top

ActiveSheet.Shapes.AddLine BX, BY, EX, EY


End Sub

スポンサーサイト



« 項番追加等 | HOME |  式作成アドイン »

コメント

コメントの投稿

 
管理者にだけ表示

 | HOME | 

プロフィール

はる

Author:はる
FC2ブログへようこそ!

最新記事

最新コメント

フリーエリア

月別アーカイブ

カテゴリ

ブロとも申請フォーム

検索フォーム

RSSリンクの表示

リンク