注意事项
ALT+F11打开VBA编辑窗口,插入模块,粘贴以下代码:
Sub 图片1_单击()
ActiveSheet.Shapes("图片 1").Copy
ActiveSheet.PasteSpecial Format:="图片(JPEG)"
End Sub
Sub 图片2_单击()
ActiveSheet.Shapes("图片 2").Copy
ActiveSheet.PasteSpecial Format:="图片(JPEG)"
End Sub
Sub 图片3_单击()
ActiveSheet.Shapes("图片 3").Copy
ActiveSheet.PasteSpecial Format:="图片(JPEG)"
End Sub
将这3张图片分别指定宏:“图片 1_单击”“图片 2_单击”“图片 3_单击”。