Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

31546 / 76732

←次へ　｜　前へ→


	【50434】Re:直線のすぐ下にテキストボックスを作成

今田 - 07/7/25(水) 0:24 -


	引用なし

	パスワード

▼Ned さん：
途中割り込みですみません
これは便利と思い利用したいのですが
チョット私の使いたいものに変更したいのですが
教えて下さい
まずテキストボックスをラインの中央の直上に枠線なしで配置したいのですが
かつテキストボックスをアクティブな状態にできますか？
マクロの記録も試してみたのですがうまくいきませんでした
よろしくお願いします。

Sub test1()
　　CommandBars.FindControl(ID:=130).Execute
　　flg = True
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
　　Dim L As Single
　　Dim T As Single
　
　　If flg Then
　　　　With ActiveSheet
　　　　　　With .Lines(.Lines.Count)
　　　　　　　　L = .Left + .Width / 2.5
　　　　　　　　T = .Top
　　　　　　　　.Height = 0
　　　　　　End With
　　　　　　With .TextBoxes.Add(L - 8, T, 40, 14)
　　　　　　　　.HorizontalAlignment = xlCenter
　　　　　　　　.VerticalAlignment = xlCenter
'　　　　　　　　.Line.Weight = 0
　　　　　　End With
　　　　End With
　　　　flg = False
　　End If
End Sub

>>...でもLineを引くところからマクロ化すればいいかも
>一応書いときますね
>
>Option Explicit
>Dim flg As Boolean
>
>Sub test1()
>　　CommandBars.FindControl(ID:=130).Execute
>　　flg = True
>End Sub
>
>Private Sub Worksheet_SelectionChange(ByVal Target As Range)
>　　Dim L As Single
>　　Dim T As Single
>　　
>　　If flg Then
>　　　　With ActiveSheet
>　　　　　　With .Lines(.Lines.Count)
>　　　　　　　　L = .Left + .Width / 2
>　　　　　　　　T = .Top
>　　　　　　　　.Height = 0
>　　　　　　End With
>　　　　　　With .TextBoxes.Add(L - 8, T, 16, 16)
>　　　　　　　　.HorizontalAlignment = xlCenter
>　　　　　　　　.VerticalAlignment = xlCenter
>　　　　　　End With
>　　　　End With
>　　　　flg = False
>　　End If
>End Sub
>
>標準モジュールではなくて、該当シートタブ右クリック[コードの表示]で出てくる
>シートモジュールに上記コードを置いて、Sub test1()を実行すると
>直線を引く用の＋カーソルになります。
>直線引き終えたら、どこでも良いのでセル選択すればOK。

0 hits

▼

【50405】直線のすぐ下にテキストボックスを作成 ABC 07/7/24(火) 0:07