三、给ChatGPT下达命令。
3-1、在对话框中输入以下命令：
生成一段VBA代码，把当前excel工作簿里的每一张工作表里的图片都移动到每个工作表的A1单元格，然后把图片大小设置成当前大小的一半。
3-2、复制VBA代码：
Sub ResizePictures()
Dim ws As Worksheet
Dim pic As Shape
For Each ws In Worksheets
For Each pic In ws.Shapes
If pic.Type = msoPicture Then
'将图片移动到A1单元格并设置大小
pic.ScaleHeight 0.5, msoTrue
pic.ScaleWidth 0.5, msoTrue
pic.Top = ws.Range("A1").Top
pic.Left = ws.Range("A1").Left
End If
Next pic
Next ws
End Sub
3-3、将代码粘贴到此处：
3-3-1、第一步：点击“开发工具”，第二步：再点击“Visual Basic”
3-3-2、自动弹出新的对话框，在红框区域鼠标点击右键
