| 極細罫線(ステップ ５) |
| Visual Basic Editor(V)(Ver2003) |
| Label7のソース |
初期値をmyRGB=黒RGB(0, 0, 0)
↓
クリックでmyRGB=赤RGB(255, 0, 0)
↓
クリックでmyRGB=青RGB(0, 0, 255)
|
Private Sub Label7_Click()
With Label7
If .BackColor = RGB(0, 0, 0) Then
.BackColor = RGB(255, 0, 0)
myRGB = RGB(255, 0, 0)
ElseIf .BackColor = RGB(255, 0, 0) Then
.BackColor = RGB(0, 0, 255)
myRGB = RGB(0, 0, 250)
Else
.BackColor = RGB(0, 0, 0)
myRGB = RGB(0, 0, 0)
End If
End With
End Sub
|
|
|
|
| コピーしUserForm1のコードに貼り付ける →
|
| If .BackColor = RGB(0, 0, 0) Then | もしLabel7の色が黒なら |
| .BackColor = RGB(255, 0, 0) | Label7の色を赤に変更 |
| myRGB = RGB(255, 0, 0) | 罫線の色の変数myRGB を赤に |
Label7
 ←クリック |
| (サンプル動作可）
|
|
|
| Image3のソース | Image4のソース | Image5のソース |
Private Sub Image3_Click()
Image3.Visible = False
Image4.Visible = True
Image5.Visible = False
syurui = xlThin
End Sub
|
|
Private Sub Image4_Click()
Image3.Visible = False
Image4.Visible = False
Image5.Visible = True
syurui = ""
End Sub
|
|
Private Sub Image5_Click()
Image3.Visible = True
Image4.Visible = False
Image5.Visible = False
syurui = xlHairline
End Sub
|
|
| Image3 Image4 Image5 をコピーしUserForm1のコードに貼り付ける↑ |
| xlThin | 極細線 |
| xlHairline | 細線 |
| 線の設定なしのxlNoneで消去 |
|
Image3 極細線 = xlThin
|
|
 ← クリック
（サンプル動作可）
|
|
|
