VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "ClassClip"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

Private WithEvents Opt_clip As MSForms.OptionButton
Attribute Opt_clip.VB_VarHelpID = -1
Private Lng_ind As Long

Public Property Let setOpt(New_opt As MSForms.OptionButton)
Set Opt_clip = New_opt 'オプションボタンオブジェクトの生成
End Property
Public Sub setNothing()
Set Opt_clip = Nothing
End Sub
Public Property Let setIndex(New_ind As Long)
Lng_ind = New_ind 'インデックスをセット
End Property
Private Sub Opt_clip_Click()
Dim Clip_name As String
Dim Clip_no As Long, Clip_y As Long, Clip_x As Long
Clip_no = FormTool.TabClip.Value * 10 + Lng_ind
SheetCanvas.setClip Clip_no 'クリップをセット
Clip_y = SheetCanvas.getClipSize(False) 'クリップの大きさ、縦
Clip_x = SheetCanvas.getClipSize(True) 'クリップの大きさ、横
If Clip_x = 1 And Clip_x = 1 Then 'クリップの大きさが縦1、横1なら
  Clip_name = "クリップなし"
Else
  Clip_name = CStr(SheetClip.Cells(ModuleConst.CLIPNAME, Clip_no + 1)) 'クリップ名
End If
FormTool.LblClip.Caption = Right$(FormTool.TabClip.SelectedItem.Caption, 1) & CStr(Lng_ind) _
  & "：" & Left$(Clip_name, 8) & "　縦：" & CStr(Clip_y) & "　横：" & CStr(Clip_x) 'クリップ情報
End Sub