REPL上色相片的方式如是说，该文讲得一清二楚，附源码

上色相片本并非Excel如果做的事，但VBA提供更多了上色相片的许多单纯方式，虽然对相片格式的处置有很多文本，此栏就拿相片上色来展开两个自学。

如下表右图图右图，可实现对相片的上色操作方式。

具体来说知道一点儿，怎样赢得相片，和前瞻性展开上色。

赢得相片第一类的方式是借助Shape第一类的PictureFormat特性回到。

回到两个PictureFormat第一类后，借助Crop特性回到两个Crop第一类。

接着，借助如下表右图图特性展开上色增设。

那个回到有点儿麻烦事，事实上展开了三次递回回到第一类，最后获得Crop第一类。

Shape 第一类PictureFormat 第一类Crop 第一类

总而言之，他们要操作方式的是两个Shape第一类的相片，有两个第一类是特别针对那个相片展开上色操作方式的，那个第一类是Crop。

重点看一下代码：

PrivateSub SetCrop()DimxShape As ObjectSetxShape = Me.Shapes(1)回到两个Shape第一类，或相片DimxCrop As Object, xl As Long, xt As Longxl=10上色左边宽度xt=10上色顶部宽度SetxCrop = xShape.PictureFormat.Crop回到两个Crop第一类WithxCrop增设上色格式.ShapeLeft=xShape.Left xl 上色左边.ShapeTop=xShape.Top xt 上色顶部.PictureHeight=.PictureHeight – 2 * xl.PictureWidth=.PictureWidth – 2 * xt.ShapeHeight=.PictureHeight – 2 * xl 上色高度.ShapeWidth=.PictureWidth – 2 * xt 上色宽度EndWithEndSub

上色第一类应用很少，一般情况下，在表格中可以自由上色，如果使用编程解决相片问题，那就需要好好自学一下Crop第一类的使用方式了。

欢迎关注、收藏

—END—