vba能否实现图片分割，比如4等分。

菊石泽露

欢迎，欢迎！

我还有好多问题需要帮忙呀？先谢过孔兄了！

sylun

看看如下方法是否可行

Sub mycrop()
'将嵌入式图片按原始高度裁剪成四分之一
   
    Dim myheight As Single, mywidth As Single
    Dim oheight As Single, owidth As Single
    '
    If ActiveDocument.InlineShapes.Count > 0 Then
        With ActiveDocument.InlineShapes(1)
            myheight = .Height  '取得现图片高度
            mywidth = .Width    '现图片宽度
            .Reset
            oheight = .Height   '图片原始高度
            owidth = .Width     '图片原始宽度
            .PictureFormat.CropBottom = oheight * 0.5
            .PictureFormat.CropRight = owidth * 0.5
            .Height = oheight * 0.5
            .Width = owidth * 0.5
        End With
    End If
End Sub

最后结果可能有误差，不知何解

[此贴子已经被作者于2007-3-19 12:38:26编辑过]

菊石泽露

结果跟守兄的差不多。图片越大，误差越大。而且也不是真正意义上的分割。因为点中图片编辑\裁切

图一拉，卷起来的部分又出来了！

菊石泽露

不过你的方法对我是很好的学习材料！谢谢！

sylun

查看可用于inlineshapes的方法不是很多，好像没有完全剪掉并脱离于word文档的方法，否则reset方法就不知如何理解。我觉得，图片的大小缩放是通过height与width属性来设定，而图片的内容（或者说可见区域）是通过4个“crop”属性来调整。如果用裁剪的方法来调整图片的大小，效果明显不同。

我平时对图形操作很少，所以只是一知半解。不知我的理解是否准确。

菊石泽露

守兄好像说浮动图片可以实现切割，等守兄的办法……

hhzjxss

不错，高手就是高手，值得学习收藏！

banjinjiu

改下，像吗？

1. Sub crop()
   
2. '将嵌入式图片按原始高度裁剪成四分之一
   
3.     Dim myheight As Single, mywidth As Single
   
4.     Dim oheight As Single, owidth As Single    '
   
5.     If ActiveDocument.InlineShapes.Count > 0 Then
   
6.         With ActiveDocument.InlineShapes(1)
   
7.             myheight = .Height '取得现图片高度
   
8.             mywidth = .Width  '现图片宽度
   
9.             .Reset
   
10.             oheight = .Height   '图片原始高度
    
11.             owidth = .Width     '图片原始宽度
    
12.             .PictureFormat.CropBottom = oheight * 0.5
    
13.             .PictureFormat.CropRight = owidth * 0.5
    
14.             .Height = oheight * 0.6 * 0.65
    
15.             .Width = owidth * 0.6 * 0.65
    
16.         End With
    
17.     End If
    
18. End Sub

复制代码