如何将工作表设置改为工作簿全局设置

fanevon · 发表于 2023-2-21 11:17

各位大佬

         目前有个需求是对工作表中的图片按单元格大小设置，通过以下VBA可以实现，但是只能针对当前工作表有用，用什么办法可以修改成对整个工作簿有效呢？

“Sub 一键对齐()
Dim sh As Shape
For Each sh In ActiveSheet.Shapes
      sh.LockAspectRatio = False
      sh.Left = sh.TopLeftCell.Left
      sh.Top = sh.TopLeftCell.Top
      sh.Width = sh.TopLeftCell.Width
      sh.Height = sh.TopLeftCell.Height
Next sh

End Sub
”

陆离Lowry · 发表于 2023-2-21 11:35

循环一下表呀

fanevon · 发表于 2023-2-21 12:12

陆离Lowry 发表于 2023-2-21 11:35
循环一下表呀

在sh 外再套一个循环码？

zldccmx · 发表于 2023-2-21 12:58

fanevon · 发表于 2023-2-21 13:58

zldccmx 发表于 2023-2-21 12:58

谢谢大佬，
现在出现另外的问题就是：都是相同工作表复制出来的，第一个表能正常的对齐，其他的工作表就是随意对齐的。
微信截图_20230221135722.png

lss001 · 发表于 2023-2-21 14:23

本帖最后由 lss001 于 2023-2-21 16:35 编辑

fanevon 发表于 2023-2-21 13:58
谢谢大佬，
现在出现另外的问题就是：都是相同工作表复制出来的，第一个表能正常的对齐，其他的工作表就 ...

Sub 一键对齐()
'Worksheets工作表集合
For Each ww In ThisWorkbook.Worksheets
ww.Activate
For Each sh In ww.Shapes
      With sh 'Whit提速
         .LockAspectRatio = False
         .Left = .TopLeftCell.Left
         .Top = .TopLeftCell.Top
         .Width = .TopLeftCell.Width
         .Height = .TopLeftCell.Height
   End With
Next
Next
End Sub

zldccmx · 发表于 2023-2-21 14:42

上传附件吧

fanevon · 发表于 2023-2-21 15:00

zldccmx 发表于 2023-2-21 14:42
上传附件吧

图片是放D盘更目录下进行添加的

image.rar (252.47 KB, 下载次数: 3)

zldccmx · 发表于 2023-2-21 15:09

fanevon · 发表于 2023-2-21 15:29

zldccmx 发表于 2023-2-21 15:09

非常感谢大神

		自动登录	找回密码
密码			免费注册

[求助] 如何将工作表设置改为工作簿全局设置

评分