狂自私

导航

自适应/调整图片大小为页面大小

Sub ResizeImagesToPageWidth() Application.ScreenUpdating = True ' 获取当前文档 Set doc = ActiveDocument ' 获取页面宽度并减去页边距 With doc.PageSetup pgWidth = .PageWid

posted on 2024-05-26 08:43  狂自私  阅读(2)  评论(0)  编辑  收藏  举报