Excel VBA質問箱 IV

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

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


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

31537 / 76732

←次へ　｜　前へ→


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

今田 - 07/7/25(水) 19:49 -


	引用なし

	パスワード

▼Ned さん：
またまた
ありがとうございました。
goodです(^_^)/~
ちなみに罫線が多少斜めに引いた場合まっすぐに修正は
できませんか【50409】作品では出来ているようなのですが・・・

>ちょっと分割して、任意選択実行もできるようにしてみました。
>
>'全てシートモジュール
>Option Explicit
>Dim flg As Boolean
>
>Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
>　　Cancel = True
>　　CommandBars.FindControl(ID:=130).Execute
>　　flg = True
>End Sub
>
>Private Sub Worksheet_SelectionChange(ByVal Target As Range)
>　　If flg Then
>　　　　Call LINETXT(Me.Lines(Me.Lines.Count))
>　　　　flg = False
>　　End If
>End Sub
>
>Private Sub LINETXT(ByRef LX As Line)
>　　Const x As Single = 1!
>　　Dim Lp　As Single
>　　Dim Tp　As Single
>　　Dim Wp　As Single
>　　Dim Hp　As Single
>　　Dim St　As String
>
>　　With LX
>　　　　Lp = .Left
>　　　　Tp = .Top
>　　　　Wp = .Width
>　　　　Hp = .Height
>　　End With
>　　If Wp > Hp Then
>　　　　St = "W " & Wp * x
>　　Else
>　　　　St = "H " & Hp * x
>　　End If
>　　With Me.TextBoxes.Add(0, 0, 0, 0)
>　　　　.ShapeRange.Line.Visible = msoFalse
>　　　　.HorizontalAlignment = xlCenter
>　　　　.VerticalAlignment = xlCenter
>　　　　.AutoSize = True
>　　　　.Font.Size = 9
>　　　　.Text = St
>　　　　.Left = Lp + (Wp - .Width) / 2
>　　　　.Top = Tp + (Hp - .Height) / 2
>　　　　.Select
>　　End With
>　　'CommandBars.FindControl(ID:=1401).Execute '必要なら
>End Sub
>
>Sub sampletest()
>　　If TypeName(Selection) = "Line" Then
>　　　　Call LINETXT(Selection)
>　　End If
>End Sub

2 hits

▼

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