Excel VBA 根据合并单元格大小调整图片大小
2013-08-26 22:50
381 查看
Sub adjustpic() '根据合并单元格大小调整图片大小
Dim Pic As Shape
For Each Pic In ActiveSheet.Shapes
If Pic.TopLeftCell.MergeCells = True Then
Set cc = Pic.TopLeftCell.MergeArea
Pic.LockAspectRatio = msoFalse
Pic.Top = cc.Top + 5
Pic.Left = cc.Left + 5
Pic.Height = cc.Height - 10
Pic.Width = cc.Width - 10
End If
Next
End Sub
Dim Pic As Shape
For Each Pic In ActiveSheet.Shapes
If Pic.TopLeftCell.MergeCells = True Then
Set cc = Pic.TopLeftCell.MergeArea
Pic.LockAspectRatio = msoFalse
Pic.Top = cc.Top + 5
Pic.Left = cc.Left + 5
Pic.Height = cc.Height - 10
Pic.Width = cc.Width - 10
End If
Next
End Sub
内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理 
相关文章推荐
- EXCEL VBA 导入图片自适应大小
- java 添加背景图片（可根据窗口大小自动调整显示图片）
- Excel VBA 插入指定图片到单元格并只适应大小
- Excel根据批注的内容自动调整批注大小
- Android 获取屏幕尺寸与密度 遇到一个问题，我的地图浮标图片在WVGA手机上正好，在QVGA上就显的太大，所以我要根据屏幕的不同调整浮标的大小使其在QVGA大小合适。有的同事提出了依据
- Excel单元格内插入图片（VBA创建函数，根据图片名称批量插入）
- 根据Button背景图片长宽比调整Button大小
- Excel VBA 调整图片高度宽度等于所在单元格高度宽度
- Excel VBA 根据实际需求合并单元格
- Bitmap切割图片(根据控件大小调整图片宽高比)-FenGKun
- jquery实现div内图片水平左右滚动，滚动到最后一张停止、可根据需求调整图片数量及大小
- Excel VBA 根据图片名称插入对应图片
- 让窗口根据图片的大小来调整窗口
- 根据桌面调整窗体大小和背景图片
- 在Excel里根据参数生成图片
- Magento图片大小调整的相关代码
- iOS 根据字体调整UILabel的大小
- Linux中如何使用gThumb批量调整图片大小
- C#图像处理（各种旋转、改变大小、柔化、锐化、雾化、底片、浮雕、黑白、滤镜效果，滤波，图像截取） 对图片的处理 : 亮度调整 抓屏 翻转 随鼠标画矩形
- smartform中的图片大小调整问题