如何用VBA插入删除单元格的照片

qujing342

        采用命令按钮“删除照片”  +VBA，对B7：B70单元格内插入的照片和批注进行清除，清除批注是删除批注，而不是仅仅清除单元格批注的底色照片。非常感谢

qujing342

1、A6:AH6为当月考勤天数，星期mod星期日自动变为灰色
    当前月份如果是2月份，因为2月份只有28天，则AF5:AH70显示为桃红色，变成保护状态
    如果是闰年，则2月份变成29天，则AG5:AH70显示为桃红色，变成保护状态
    如果月份是4、6、9、11四个月份，这些份只有30天，则最后一列AH5:AH70显示为桃红色，变成保护状态
    如果月份是1、3、5、7、8、10、12六个月份，这些份31天，则最后一列D5:AH70显示为无色，不受保护状态

准提部林

qujing342 发表于 2023-3-18 13:57
1、A6:AH6为当月考勤天数，星期mod星期日自动变为灰色
    当前月份如果是2月份，因为2月份只有28天，则AF ...

月底不足31天...保護不給輸入//
上一帖不是處理了???15樓
想將紅色改為無色, 自己改下//

准提部林

With ActiveSheet
     .Pictures.Delete '刪圖
     [a:a].ClearComments '刪註解
End With

qujing342

[code][/code]
谢谢准提部林老师
这次是因为在S7:B70采用数据有效性的方式输入姓名，且保证不能手工重复输入姓名，
点击插入照片，B7:B70自动插入对应姓名的照片，点击插入批注，在对就姓名里插入批注，这些都没问题
问题是点击删除照片，要只许删除B7:B0中的照片，其他地方的图片不删除，而且保证不清除所有单元格的格式