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

菊石泽露

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

守柔

QUOTE:

以下是引用菊石泽露在2007-3-10 0:41:27的发言：
vba能否实现图片分割，比如4等分。

很有意思的一个问题，请参考：

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋
'* Created By SHOUROU@ExcelHome 2007-3-10 7:08:02
'仅测试于System: Windows NT Word: 11.0 Language: 2052
'№ 0177^The Code CopyIn [ThisDocument-ThisDocument]^'
'* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－
Option Explicit

Sub FourPart()
'本示例将嵌入式图片四等分
    Dim myPicture As InlineShape, myRange As Range, lngEnd As Long
    With ActiveDocument
        Set myPicture = .InlineShapes(1) '定义一个嵌入式图片对象
        myPicture.Range.InsertAfter Chr(13) '插入一个段落标记
        '定义一个RANGE对象
        Set myRange = .Range(myPicture.Range.End + 1, myPicture.Range.End + 1)
        myPicture.Range.Copy '复制该图片
        myRange.Paste '粘贴
        Set myPicture = .InlineShapes(2) '重新定义一个嵌入式图片对象,为新的粘贴后的图片
        With myPicture '裁剪图片,即右侧剪掉一半,底部剪掉一半
            .PictureFormat.CropRight = 50
            .PictureFormat.CropBottom = 50
        End With
      

守柔

  myPicture.Range.InsertAfter Chr(13) '插入一个段落标记
        myRange.SetRange myPicture.Range.End + 1, myPicture.Range.End + 1
        myRange.Paste '粘贴图片
        Set myPicture = .InlineShapes(3) '重新定义myPicture对象
        With myPicture '左侧剪掉一半,底部剪掉一半
            .PictureFormat.CropLeft = 50
            .PictureFormat.CropBottom = 50
        End With
        myPicture.Range.InsertAfter Chr(13)
        myRange.SetRange myPicture.Range.End + 1, myPicture.Range.End + 1
        myRange.Paste
        Set myPicture = .InlineShapes(4)
        With myPicture '右侧剪掉一半,上部剪掉一半
            .PictureFormat.CropRight = 50
            .PictureFormat.CropTop = 50
        End With
        myPicture.Range.InsertAfter Chr(13)
        myRange.SetRange myPicture.Range.End + 1, myPicture.Range.End + 1
        myRange.Paste
        Set myPicture = .InlineShapes(5)
        With myPicture '左侧剪掉一半,上部剪掉一半
            .PictureFormat.CropLeft = 50
            .PictureFormat.CropTop = 50
        End With
    End With
End Sub
'----------------------

菊石泽露

谢谢斑竹！我测试后再报告。

菊石泽露

结果是把图片复制了四个，部分边缘卷进去一些。

        With myPicture '裁剪图片,即右侧剪掉一半,底部剪掉一半
            .PictureFormat.CropRight = 50
            .PictureFormat.CropBottom = 50

这样好象卷进50个像素，或50磅。我觉得首先要判断图片大小：像素数，然后切去一半。请版主明察！

菊石泽露

这个问题可能探到了word vba 的边界！

守柔

QUOTE:

以下是引用菊石泽露在2007-3-12 16:54:55的发言：

这个问题可能探到了word vba 的边界！

对于浮动式图形，很好处理，但对于嵌入式图形，如何直接取得原始图片大小就成了一个问题，我目前未找到更直接的方法。

过些时候，我会把浮动图片和嵌入式图形的处理代码全部粘上来的。

我写代码时，对裁剪的方法歧义了，故犯了个错误。

 

[em04]

菊石泽露

欢迎守版授课！

菊石泽露

再简化一点：能把word中所有图片纵向或横向切割成二等分也可以呀。

欢迎守版、kongs版等高手开坛授课！

konggs

不好意思。我这一段时间比较忙，老大也有很多事。

等过段时间闲来时，我们再组织授课或写一些简单的入门的贴子。谢谢支持。