Excel VBA 質問スレ Part51

[0317 デフォルトの名無しさん (ﾜｯﾁｮｲ 1111-JjO2) 2017/12/03(日) 10:04:41.09 ID:ObUuqjZI0]

>>315
フォームコントロールならこっちだわ
コントロール名は適当に変えてくれ

Sub チェック2_Click()
If Sheet1.CheckBoxes("チェック 2").Value = 1 Then 'これでダメなら下を試そう
'If "Sheet1".Shapes("チェック 2").ControlFormat.Value = 1 Then
Rows(3).RowHeight = 13.5
Rows(4).RowHeight = 13.5
Else
Rows(3).RowHeight = 0
Rows(4).RowHeight = 0
End If

End Sub