请选择 进入手机版 | 继续访问电脑版

4chan中文站

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 51|回复: 0

excel怎么让图片居中

[复制链接]

65

主题

84

帖子

703

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
703
发表于 2018-9-23 15:49:11 | 显示全部楼层 |阅读模式
点中一个图片,ctrl+A,选择所有图片
ALT+F11,插入模块,粘贴运行以下代码即可。
  1. Sub dq()
  2. Dim shp As Shape
  3. For Each shp In ActiveSheet.Shapes
  4. shp.Left = (shp.TopLeftCell.Width - shp.Width) / 2 + shp.TopLeftCell.Left
  5. shp.Top = (shp.TopLeftCell.Height - shp.Height) / 2 + shp.TopLeftCell.Top
  6. Next
  7. End Sub
复制代码
https://zhidao.baidu.com/question/221377583.html
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|小黑屋|4chan中文站

GMT+8, 2019-11-21 17:08 , Processed in 0.093274 second(s), 18 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表