エクセルのマクロについて
エクセル2010を使用しています。
工程表を作成するため、以下のマクロを組もうと苦戦しています。
任意のセルを選択し、マクロを実行すると選択したセルに線を引き
線の上部にテキストボックスで文字を入力できるようにするマクロを
作成しようとしています。
また、テキストボックスは文字入力後、大きさの自動調整をかけようと
しています。
線を引くところまでは、うまくいったのですがテキストボックスの挿入→入力待機
→入力後、大きさの自動調整(幅)までのマクロがよくわかりません。
可能であれば、任意の選択したセルの中央に配置をしたいです。
お知恵をお貸しください。よろしくお願いします。
koutei()
Dim SentakuTop As Single
Dim SentakuLeft As Single
Dim SentakuWidth As Single
Dim SentakuHeight As Single
Dim SentakuAddress As String
Dim X0, Y0, X1, Y1 As Variant
SentakuAddress = Selection.Address(ColumnAbsolute:=False, RowAbsolute:=False)
With ActiveSheet.Range(SentakuAddress)
SentakuTop = .Top
SentakuLeft = .Left
SentakuWidth = .Width
SentakuHeight = .Height
End With
X0 = SentakuLeft
Y0 = SentakuTop + SentakuHeight / 2
X1 = SentakuLeft + SentakuWidth
Y1 = Y0
With ActiveSheet.Shapes.AddLine(X0, Y0, X1, Y1).Line
.ForeColor.RGB = RGB(0, 0, 0)
.Weight = 1
.BeginArrowheadStyle = msoArrowheadOval
.EndArrowheadStyle = msoArrowheadOval
End With
End Sub
お礼
ありがとうございます。 マクロ講座とても参考になりました。 いろいろと使えそうですね