VBA 插入图片以及对图片进行裁切及位置移动

最新推荐文章于 2024-09-23 08:14:35 发布

hai167

最新推荐文章于 2024-09-23 08:14:35 发布

阅读量5.5k

点赞数

分类专栏： VBA OFFICE开发文章标签： vba

本文链接：https://blog.csdn.net/hai167/article/details/108003706

版权

VBA 同时被 2 个专栏收录

4 篇文章 1 订阅

订阅专栏

OFFICE开发

4 篇文章 0 订阅

订阅专栏

VBA 插入图片以及对图片进行裁切及位置移动

        Set shp = Sheet1.Shapes.AddPicture("路径", msoFalse, msoCTrue, 0, 0, -1, -1)
        With shp    
            .PictureFormat.CropTop = mTop '下移裁剪
            .PictureFormat.CropLeft = mLeft '右移裁剪
            .PictureFormat.CropBottom = cBottom '上移裁剪
            .PictureFormat.CropRight = cRight '左移裁剪
            
            .Left = Cells(mRow + j, mCol).Left + 5
            .Top = Cells(mRow + j, mCol).Top + 5
            .Width = Cells(mRow + j, mCol).Width - 5
            .Height = Cells(mRow + j, mCol).Height - 5
        End With