picture 0

WPS表格使用VBA脚本实现链接自动获取图片
记录代码防止忘记

  1. 安装vba
    一般用户的wps是不带vba的,无法启用宏,需要单独安装,搜索下载安装就行
  2. 写代码
    切换到开发工具,打开VB编辑器,选择当前的工作表,贴入代码,收工
1
2
3
4
5
6
7
8
9
10
11
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Column = 1 And .Count = 1 Then '修改的单元格在A列,且只修改一个单元格
If Left(.Value, 7) = "http://" Then '如果单元格内容为网址
'添加网络图片,并设置为图片大小位置随单元格变化而变化
ActiveSheet.Shapes.AddPicture(.Value, msoCTrue, msoCTrue, .Left, .Top, .Width, .Height).Placement = xlMoveAndSize
.WrapText = True '单元格设置为自动换行,以隐藏网址
End If
End If
End With
End Sub
  1. 实现效果
    在第一列插入http://开头的文本,会自动下载图片,插入对象,并自动设为单元格大小