/iknow-pic.cdn.bcebos.com/908fa0ec08fa513d6f3d8336336d55fbb3fbd947"target="_blank"title="点击查看大图"class="ikqb_img_alink">/iknow-pic.cdn.bcebos.com/908fa0ec08fa513d6f3d8336336d55fbb3fbd947?x-bce-process=image%2Fresize%2Cm_lfit%2Cw_600%2Ch_800%2Climit_1%2Fquality%2Cq_85%2Fformat%2Cf_auto"esrc="https://iknow-pic.cdn.bcebos.com/908fa0ec08fa513d6f3d8336336d55fbb3fbd947"/>
2、然后我们需要在弹出的右键菜单中,选择“分组依据”。
/iknow-pic.cdn.bcebos.com/77094b36acaf2edd2c5aa601831001e9380193ab"target="_blank"title="点击查看大图"class="ikqb_img_alink">/iknow-pic.cdn.bcebos.com/77094b36acaf2edd2c5aa601831001e9380193ab?x-bce-process=image%2Fresize%2Cm_lfit%2Cw_600%2Ch_800%2Climit_1%2Fquality%2Cq_85%2Fformat%2Cf_auto"esrc="https://iknow-pic.cdn.bcebos.com/77094b36acaf2edd2c5aa601831001e9380193ab"/>
3、“分组依据”展开列表中,选择“更多”选项。
/iknow-pic.cdn.bcebos.com/9358d109b3de9c826e2016676281800a18d84395"target="_blank"title="点击查看大图"class="ikqb_img_alink">/iknow-pic.cdn.bcebos.com/9358d109b3de9c826e2016676281800a18d84395?x-bce-process=image%2Fresize%2Cm_lfit%2Cw_600%2Ch_800%2Climit_1%2Fquality%2Cq_85%2Fformat%2Cf_auto"esrc="https://iknow-pic.cdn.bcebos.com/9358d109b3de9c826e2016676281800a18d84395"/>
4、然后我们需要在弹出的分组依依据列表中,取消勾选除名称外的所有勾选项。
/iknow-pic.cdn.bcebos.com/500fd9f9d72a60594d260ef22634349b033bba20"target="_blank"title="点击查看大图"class="ikqb_img_alink">/iknow-pic.cdn.bcebos.com/500fd9f9d72a60594d260ef22634349b033bba20?x-bce-process=image%2Fresize%2Cm_lfit%2Cw_600%2Ch_800%2Climit_1%2Fquality%2Cq_85%2Fformat%2Cf_auto"esrc="https://iknow-pic.cdn.bcebos.com/500fd9f9d72a60594d260ef22634349b033bba20"/>
5、设置完毕后,单击下方“确定”按钮。
/iknow-pic.cdn.bcebos.com/7af40ad162d9f2d36958cb07a7ec8a136227cc89"target="_blank"title="点击查看大图"class="ikqb_img_alink">/iknow-pic.cdn.bcebos.com/7af40ad162d9f2d36958cb07a7ec8a136227cc89?x-bce-process=image%2Fresize%2Cm_lfit%2Cw_600%2Ch_800%2Climit_1%2Fquality%2Cq_85%2Fformat%2Cf_auto"esrc="https://iknow-pic.cdn.bcebos.com/7af40ad162d9f2d36958cb07a7ec8a136227cc89"/>
6、完成效果如图。就可以取消工作组设置了。方法很简单。
/iknow-pic.cdn.bcebos.com/0df431adcbef7609c7a0767720dda3cc7dd99eab"target="_blank"title="点击查看大图"class="ikqb_img_alink">/iknow-pic.cdn.bcebos.com/0df431adcbef7609c7a0767720dda3cc7dd99eab?x-bce-process=image%2Fresize%2Cm_lfit%2Cw_600%2Ch_800%2Climit_1%2Fquality%2Cq_85%2Fformat%2Cf_auto"esrc="https://iknow-pic.cdn.bcebos.com/0df431adcbef7609c7a0767720dda3cc7dd99eab"/>
按Alt+F11打开VBA编辑器,插入一个模块,输入以下代码:Sub 替换工作表中的所有图形()
For Each 工作表 In ActiveWorkbook.Sheets
If 工作表.Shapes.Count >0 Then
顶部 = 工作表.Shapes(1).Top
左边 = 工作表.Shapes(1).Left
工作表.Shapes(1).Delete
工作表.Pictures.Insert "D:\My Documents\My Pictures\IP.JPG"
工作表.Shapes(1).Top = 顶部
工作表.Shapes(1).Left = 左边
End If
Next
End Sub
直接执行,或切回Excel后按Alt+F8执行“替换工作表中的所有图形”,就可以了,如果原来的表里没有图片就不替换,如果有多个图片则只替换第一个。注意修改插入图片文件的路径
操作步骤:
1、单击开始——控制面板。
2、单击“用户账户和家庭安全”。
3、单击“用户账户”——添加和删除用户账户。
4、然后删除工作组中的多余计算机名即可。