[[20070330101427]]　『セル内に斜線を引き、文字を入力するには？』（なな）　ページの最後に飛ぶ

『セル内に斜線を引き、文字を入力するには？』（なな）

 セル内に斜線を引いて、そこに文字を入力したいけどどうすれば？

 １．書式-セル　罫線ﾀﾌﾞ　斜め線をひく　OK
     普通に文字を入力
 ２．直線の斜め線の方がいいなら別方法で
 Public Sub keisen()
    Dim x1 As Double, x2 As Double, x3 As Double, x4 As Double
    Dim rng As Range
    If TypeName(Selection) <> "Range" Then Exit Sub
    Set rng = Selection

 '/* 選択範囲全体の座標の把握
    With Selection
    x1 = .Left
    x2 = .Top
    x3 = .Width
    x4 = .Height

 End With
    '/* 選択範囲に角の丸い四角形を描画
    With Selection
    .Formula = "　"
    ActiveSheet.Shapes.AddLine(x1, x2, x1 + x3, x2 + x4).Select
        'ここで向きを反転
    Selection.ShapeRange.Flip msoFlipHorizontal
   rng.Select
    Set rng = Nothing
 End With
 End Sub
 こんなんでいいですか？（てつ）

コメント返信：

[ 一覧(最新更新順) ]

[[20070330101427]] 『セル内に斜線を引き、文字を入力するには？』（なな） ページの最後に飛ぶ

[[20070330101427]]　『セル内に斜線を引き、文字を入力するには？』（なな）　ページの最後に飛ぶ