Ｐａｇｅ 702 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼テキストボックス等の線を太くしたい カド 03/2/7(金) 12:53 ┗Re:テキストボックス等の線を太くしたい Jaka 03/2/7(金) 14:46 ┗Re:テキストボックス等の線を太くしたい [名前なし] 03/2/7(金) 20:14 ─────────────────────────────────────── ■題名 ： テキストボックス等の線を太くしたい ■名前 ： カド ■日付 ： 03/2/7(金) 12:53 -------------------------------------------------------------------------
| 数ヶ月ぶりにお便りします。 早速ですが、テキストＢＯＸとオブジェクトが数個混在しているシートにおいて、 1.テキストＢＯＸは文字有りで枠線なし 2.オブジェクトは線あり の場合で、 ドラッグして選択した任意の個数のテキストＢＯＸの文字は太字に オブジェクトの線は太線に 変更するマクロを作りたいのですが、ヒント或いは参考になるサイトの紹介でも 結構ですのでお教えください。 宜しくお願い致します。 |
| こんにちは。 線を太くする等は、マクロ記録でもして応用して下さい。 Sub CB750F() Dim SelOb As Object Set SelOb = Selection If TypeName(SelOb) = "DrawingObjects" Then For Each DrOb In SelOb If TypeName(DrOb) = "TextBox" Then MsgBox "テキストボックス" & vbCrLf & _ TypeName(DrOb) Else MsgBox "テキスト以外のオブジェクト。" & vbCrLf & _ TypeName(DrOb) End If Next End If Set SelOb = Nothing End Sub |
| ▼Jaka さん： 回答ありがとうございます。 完璧です。 Sub CB750F() Dim SelOb As Object Set SelOb = Selection If TypeName(SelOb) = "DrawingObjects" Then For Each DrOb In SelOb If TypeName(DrOb) = "TextBox" Then MsgBox "テキストボックス" & vbCrLf & _ TypeName(DrOb) Selection.Font.Bold = True Else MsgBox "テキスト以外のオブジェクト。" & vbCrLf & _ TypeName(DrOb) Selection.ShapeRange.Line.Weight = 1.5 End If Next End If Set SelOb = Nothing End Sub |