时间戳

首页 > 解决方案 > 如果未选中复选框，则 vba 操作

excel - 如果未选中复选框，则 vba 操作

问题描述

如果选中复选框，我想制作一个插入图片的子，如果未选中则将其删除，这就是我到目前为止所得到的，第一部分（选中时插入）工作正常。请问有什么想法吗？

Dim chbx
Set chbx = ActiveSheet.CheckBoxes.Add(240, 15, 144, 15.75)
chbx.Characters.Text = "DisplacementPicturesIns"
chbx.OnAction = "DisplacementPicturesIns"
If chbx.Value = True Then
    chbx.OnAction = True
Elseif chbx.Value = False Then
....
End If

标签： excelvba

解决方案

我不知道你是否还需要这个，但这是我选择/取消选择我的复选框元素的解决方案。您可以在 if 语句之间进行更改以做任何您想做的事情:)

Sub SelectAll()
   Dim chkbx As CheckBox
   Dim cbv As Long

   cbv = Sheets("Feuil1").CheckBoxes(Application.Caller).Value

   If cbv = 1 Then
      For Each chkbx In Sheets("Feuil1").CheckBoxes
         chkbx.Value = xlOn
      Next
   Else
      For Each chkbx In Sheets("Feuil1").CheckBoxes
         chkbx.Value = xlOff
      Next
   End If
End Sub

推荐阅读