如何批量嵌入单元格图片

1659892128

WPS 2019有个切换为嵌入单元格图片（DISPIMG函数）功能挺好用的，可以防止打印图片跑偏错位。

如：表格是ERP下载的含图片不需重新插入，其他格式现在我都用vba调整，唯独每次调整前要设置一下嵌入单元格图片，每次手动调麻烦；曾想过模拟键盘操作快捷键Sendkeys之类的，实在技术有限，也没研究出来！


请大佬帮忙看如何用VBA一键实现，感谢！

3190496160

wps环境下运行代码
Sub 调整()
For Each shp In ActiveSheet.Pictures
    shp.Select
    dz = shp.TopLeftCell.Address
    Range(dz).Formula = "=DISPIMG(" & """" & "ID_8330172142F9411D9C277E556595D7FB" & """" & ",1)"
    Selection.ShapeRange.Delete
Next shp
End Sub

3190496160

D-2022100201.rar (66.63 KB, 下载次数: 34)

2022-10-3 11:42 上传

点击文件名下载附件

1659892128

3190496160 发表于 2022-10-3 11:42

代码再运行不行诶？就全变成了=DISPIMG("ID_......",1)同一个图片ID

1659892128

各位老师，实现不了么？模拟鼠标右键菜单呢，
我本想选中图片对象后Shift+F10再R键，但是SendKeys "+{f10}" 但是为何居然没反应

1659892128

最后找了个很笨的办法，用Python模拟键盘算是实现所谓的自动化。据网上说JSA有api，但官方没有公布相关接口文档，估计是会员专用吧以后（但也不至于呀 Crtl+G全选，右键也能批量切换为嵌入单元格图片）！

1. import tkinter as tk
   
2. from tkinter import filedialog
   
3. import os
   
4. import time
   
5. 
   
6. import pyautogui
   
7. from pywinauto import application
   
8. 
   
9. def open_wps_file(file_path):
   
10.     # 启动WPS Office应用程序
    
11.     wps_app = application.Application(backend='uia')
    
12.     wps_app.start(r"C:\Program Files (x86)\Kingsoft\WPS Office\11.8.2.11978\office6\et.exe")
    
13. 
    
14.     # 等待应用程序完全启动
    
15.     time.sleep(3)
    
16. 
    
17.     # 发送快捷键，打开文件
    
18.     wps_app.top_window().type_keys("^o")
    
19.     time.sleep(1)
    
20. 
    
21.     # 输入文件路径并确认
    
22.     wps_app.top_window().type_keys(file_path)
    
23.     time.sleep(1)
    
24.     wps_app.top_window().type_keys("{ENTER}")
    
25.     time.sleep(1)
    
26. 
    
27.     # 定位到对象（B）并选择“定位”
    
28.     pyautogui.hotkey('ctrl', 'g')
    
29.     time.sleep(1)
    
30.     pyautogui.press('b')
    
31.     time.sleep(1)
    
32.     pyautogui.press('t')
    
33.     time.sleep(1)
    
34.     pyautogui.press('down')
    
35.     time.sleep(1)
    
36.     pyautogui.press('right')
    
37.     time.sleep(1)
    
38.     # 模拟按下Shift键
    
39.     pyautogui.keyDown('shift')
    
40. 
    
41.     # 模拟按下F10键
    
42.     pyautogui.keyDown('f10')
    
43. 
    
44.     # 等待一段时间表示按键操作
    
45.     time.sleep(0.5)
    
46. 
    
47.     # 释放F10键
    
48.     pyautogui.keyUp('f10')
    
49. 
    
50.     # 释放Shift键
    
51.     pyautogui.keyUp('shift')
    
52.     time.sleep(1)
    
53.     pyautogui.press('r')
    
54. 
    
55.     # 模拟按下Ctrl+S键
    
56.     pyautogui.hotkey('ctrl', 's')
    
57. 
    
58. def select_file():
    
59.     file_path = filedialog.askopenfilename(initialdir="/", title="Select file",
    
60.                                            filetypes=(("Excel files", "*.xlsx"), ("all files", "*.*")))
    
61.     # 将路径中的斜杠转换为反斜杠
    
62.     file_path = file_path.replace("/", "\")
    
63.     if file_path:
    
64.         open_wps_file(file_path)
    
65.         os.system("taskkill /f /im et.exe")
    
66. 
    
67. # 创建主窗口
    
68. root = tk.Tk()
    
69. 
    
70. # 创建选择文件按钮，注意文件名不能有空格
    
71. select_button = tk.Button(root, text="选择文件", command=select_file)
    
72. select_button.pack()
    
73. 
    
74. # 运行主循环
    
75. root.mainloop()

复制代码

GG函数

你可以使用按键精灵/uibot等目前免费的软件实现在屏幕上点点点的操作

hnsd24

JSA提供了一个隐藏函数，直接可以插入嵌入单元格图片
rng.RangeEx.InserCellPicture(PicPath)