如何用VBA控制改变excel中手动插入的图片的大小

Question

如题所述

Answer 1

把图片复制到单元格，调整单元格大小至适合图片，可用ALT键+鼠标挪动图片，以锚定左上角，再调整右下角单元格至图片等于单元格大小。

然后右键图片，选属性--选“大小位置均随单元格改变"--确定

此时调整单元格则图片也随之调整了。 

以下是你需的VBA代码，你可以用宏录制一个快捷键，删除中间代码。每在当前单元格插入一张图片，就执行一次宏。

Sub InsertPic()

cColumn = ActiveCell.Column

rRow = ActiveCell.Row

n = Sheet1.Shapes.Count

ActiveSheet.Shapes("Picture " & n).Select

Selection.ShapeRange.LockAspectRatio = msoFalse

Selection.ShapeRange.Width = ActiveSheet.Columns(cColumn).ColumnWidth * 6.44

Selection.ShapeRange.Height = ActiveSheet.Rows(rRow).RowHeight

With Selection

.Placement = xlMoveAndSize

.PrintObject = True

End With

End Sub

Answer 2

有一个想法 就是 你能不能 通过VBA来插入 图片 可以手动选择的……这样合并在一起的过程 是可以实现你的目的的………………

用如下三行代码 试一下看看能不能达到你的目的…………
把这段代码 关联到一个按钮上 你就可以通过这个按钮来插入图片了……

Application.Dialogs(342).Show '插入图片的对话框
Selection.ShapeRange.Height = 100 '设置刚插入的图片的高度
Selection.ShapeRange.Width = 100 '设置刚插入的图片的宽度

你还可以进一步 设置 对齐 以及插入的位置等……自行研究一下吧……本回答被提问者和网友采纳