|
こんばんわ
早速質問させて頂きます。
範囲が7列目の6行目から68列目の115行目迄で
偶数行に計画線(テキストボックス)
奇数行に実施線(テキストボックス)
を下記のUserFoamにて書いています。
Private Sub CommandButton1_Click()
Dim 文字色, 塗色 As Integer
Dim N1 As Variant
Dim xa, xb, ya, yb As Long
xa = Selection.Left
xb = Selection.Width
ya = Selection.Top
yb = Selection.Height
If OptionButton1.Value = True Then
塗色 = 8
ElseIf OptionButton2.Value = True Then
塗色 = 2
ElseIf OptionButton3.Value = True Then
塗色 = 3
ElseIf OptionButton4.Value = True Then
塗色 = 4
ElseIf OptionButton5.Value = True Then
塗色 = 5
ElseIf OptionButton6.Value = True Then
塗色 = 6
ElseIf OptionButton7.Value = True Then
塗色 = 7
ElseIf OptionButton8.Value = True Then
塗色 = 1
End If
If OptionButton9.Value = True Then
文字色 = 1
ElseIf OptionButton10.Value = True Then
文字色 = 3
ElseIf OptionButton11.Value = True Then
文字色 = 5
ElseIf OptionButton12.Value = True Then
文字色 = 2
End If
ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, xa, ya, _
xb, yb).Select
Selection.Characters.Text = TextBox1.Value
With Selection.Font
.Name = "MS Pゴシック"
.FontStyle = "標準"
.Size = 9
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 文字色
End With
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.ReadingOrder = xlContext
.Orientation = xlHorizontal
.AutoSize = False
.AddIndent = False
End With
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 塗色
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 0.75
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.ForeColor.SchemeColor = 64
Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
End Sub
Private Sub CommandButton2_Click()
Unload UserForm4
End Sub
それで、やりたいことは
奇数行の実施線(テキストボックス)のプロパティの『オブジェクトを印刷する』のチェックをはずしたり付けたりして印刷したいのです。
又、範囲内には計画線・実施線とも引いていない行もあります。
説明が下手ですいませんが、よろしくお願いします。
|
|