返回目录:excel表格制作
把图片复制到单元格,调整单元格大小至适合图片,可用ALT键+鼠标挪动图片,以锚定左上角e799bee5baa6e79fa5e98193e4b893e5b19e363,再调整右下角单元格至图片等于单元格大小。
然后右键图片,选属性--选“大小位置均随单元格改变"--确定
此时调整单元格则图片也随之调整了。
以下是你需的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
Sub 生成()
Dim ifile As String, xx%, yy%
Dim wb As Workbook
yy = Sheet1.Range("A65536").End(xlUp).Row
For xx = 2 To yy
Sheet2.Range("B3") = Sheet1.Range("A" & xx)
'Sheet2.Range("A1:M28").Copy
ifile = ThisWorkbook.Path & "\" & Sheet1.Range("A" & xx) & ".xls"
Set wb = Workbooks.Add
Sheet2.Copy Before:=wb.Sheets(1)
'Sheet2.Range("A1:M28").Copy ActiveWorkbook.Sheets("sheet1").Range("A1")
wb.SaveAs ifile, True
wb.Close
Next
End Sub
把图片636f70797a686964616f337复制到单元格,调整单元格大小至适合图片,可用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
试试下面的代码,统抄一活动工作表的图片为同一尺寸
Height和Width的单位为磅,袭纵横比未锁定。
Sub pics1size()
Dim pic As Object
For Each pic In ActiveSheet.Shapes
pic.LockAspectRatio = False
pic.Height = 170
pic.Width = 155
Next pic
End Sub
pic.LockAspectRatio = False这句可以zhidao先解除锁定