一、旋轉(zhuǎn)圖片

　　Dim blnIsInlineShape As Boolean

　　If Selection.Type = wdSelectionInlineShape Then

　　blnIsInlineShape = True

　　Selection.InlineShapes(1).ConvertToShape

　　End If

　　Dim intTurn As Integer

　　intTurn = InputBox("請(qǐng)輸入圖形要旋轉(zhuǎn)的角度值" & vbCrLf & "正數(shù)表示順時(shí)針，負(fù)數(shù)表示逆時(shí)針。", "圖形旋轉(zhuǎn)", 30)

　　Selection.ShapeRange.IncrementRotation intTurn

　　End Sub

　　二、將文檔中的每張圖片的版式轉(zhuǎn)換為嵌入式圖形

　　For Each s In Documents("MyDoc.doc").Shapes

　　If s.Type = msoPicture Then

　　s.ConvertToInlineShape

　　End If

　　Next s

　　三、設(shè)置圖片的高度寬度

　　Mywidth=10'10為圖片寬度(厘米)

　　Myheigth=10'10為圖片高度(厘米)

　　For Each iShape In ActiveDocument.InlineShapes

　　iShape.Height = 28.345 * Myheigth

　　iShape.Width = 28.345 * Mywidth

　　Next iShape

　　四、得到圖片的像素

　　Sub 獲取嵌入型圖片的像素()

　　On Error Resume Next

　　With Selection.Range.Find

　　.ClearFormatting

　　.Replacement.ClearFormatting

　　.Execute findtext:="^g", MatchWildcards:=False, Wrap:=wdFindStop

　　MsgBox "該圖片的像素為：" & Selection.InlineShapes(1).Width _

　　& " * " & Selection.InlineShapes(1).Height

　　End With

　　End Sub

　　五、復(fù)制圖片到Word文檔中

　　Dim objWordApp As Word.application

　　Dim objWord As Word.Document

　　Range(Cells(3, 2), Cells(11, 11)).Select

　　Selection.CopyPicture

　　Set objWordApp = CreateObject("Word.Application")

　　Set objWord = objWordApp.Documents.Add

　　objWord.Application.Visible = True

　　objWord.Application.Selection.Paste

　　Set objWord = Nothing

　　Set objWordApp = Nothing