根据单元格内容插入背景

自由！自在

根据单元格内容插入背景，我仅仅只想在1-5页插入背景怎么弄，我自己弄了一个是全部都插入的，哪位大神帮我改一下

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. Dim picPath As String
   
3. picPath = "D:\autoExcel\BJ" & Range("Ar1").Value & ".png"        '拼接图片文件路径
   
4. If Dir(picPath) <> "" Then                                               '如果图片存在
   
5. Application.ActiveSheet.SetBackgroundPicture fileName:=picPath      '设置为背景
   
6. Else '如果图片不存在
   
7. Application.ActiveSheet.SetBackgroundPicture fileName:=""        '清除背景
   
8. End If
   
9. End Sub

复制代码

剑指E

先不说你的代码，你手工会不会做到类似背景？
再说你的代码肯定不能实现，因为插入背景图片是做不到的。

自由！自在

剑指E 发表于 2023-4-17 19:25
先不说你的代码，你手工会不会做到类似背景？
再说你的代码肯定不能实现，因为插入背景图片是做不到的。

代码插背景图成功的，就是我设置了单元格格式有颜色，综合一起弄不来

剑指E

自由！自在 发表于 2023-4-18 08:11
代码插背景图成功的，就是我设置了单元格格式有颜色，综合一起弄不来

先看看这个word的基础操作手工能不能做到，如果能，再研究代码。