【实操教程】ChatGPT帮你做表格(Excel)—简单不废话

投稿用户 • • 行业动态 • 阅读 89

一、场景说明。把当前Excel工作簿里的每一张工作表里的图片都移动到每个工作表的A1单元格，然后把图片大小设置成当前大小的一半。

1-1、当前表格中有3个表，每个表中都有一幅大图，如下所示：

【实操教程】ChatGPT帮你做表格(Excel)---简单不废话

【实操教程】ChatGPT帮你做表格(Excel)---简单不废话

【实操教程】ChatGPT帮你做表格(Excel)---简单不废话

二、先打开Excel中的开发模式。

2-1、点击左上角“文件”按钮

【实操教程】ChatGPT帮你做表格(Excel)---简单不废话

2-2、点击“选项”按钮

【实操教程】ChatGPT帮你做表格(Excel)---简单不废话

2-3、再点击“自定义功能区”

【实操教程】ChatGPT帮你做表格(Excel)---简单不废话

2-4、勾选“开发工具”选项，并点击“确定”按钮。

【实操教程】ChatGPT帮你做表格(Excel)---简单不废话

2-5、菜单栏就出现了“开发工具”这一选项。

【实操教程】ChatGPT帮你做表格(Excel)---简单不废话

三、给ChatGPT下达命令。

3-1、在对话框中输入以下命令：

生成一段VBA代码，把当前excel工作簿里的每一张工作表里的图片都移动到每个工作表的A1单元格，然后把图片大小设置成当前大小的一半。

【实操教程】ChatGPT帮你做表格(Excel)---简单不废话

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”

【实操教程】ChatGPT帮你做表格(Excel)---简单不废话

3-3-2、自动弹出新的对话框，在红框区域鼠标点击右键

【实操教程】ChatGPT帮你做表格(Excel)---简单不废话

【实操教程】ChatGPT帮你做表格(Excel)---简单不废话

3-3-3、在新弹出的对话框中复制出刚才的代码。

【实操教程】ChatGPT帮你做表格(Excel)---简单不废话

3-3-4、点击运行按钮。

【实操教程】ChatGPT帮你做表格(Excel)---简单不废话

3-3-5、关闭当下窗口，回到excel

【实操教程】ChatGPT帮你做表格(Excel)---简单不废话

四、完成作业。

【实操教程】ChatGPT帮你做表格(Excel)---简单不废话

【实操教程】ChatGPT帮你做表格(Excel)---简单不废话

【实操教程】ChatGPT帮你做表格(Excel)---简单不废话

如有咨询请留言回复。

生意营销3大宝：彩铃、定位、认证，一个也不能少，如有需要，添加 微信：xnc528  备注：3

本文内容由互联网用户自发贡献，该文观点仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容， 请发送邮件至 820277912@qq.com 举报，一经查实，本站将立刻删除。
如若转载，请注明出处：https://www.clzz8.com/47464.html
赞 (0)
投稿用户
0
上一篇 2024年8月1日 pm12:39
下一篇 2024年8月1日 pm7:51

相关推荐