大家好，我們今日繼續(xù)講解VBA代碼解決方案的第144講內(nèi)容：在WORD中實(shí)現(xiàn)圖形的精確旋轉(zhuǎn)。我們?cè)趯慥BA代碼中經(jīng)常會(huì)用到圖形的問(wèn)題，或者說(shuō)有關(guān)圖形的問(wèn)題在VBA代碼中占據(jù)中一塊內(nèi)容，或許這塊內(nèi)容對(duì)于有的朋友用到的并不多，但如果掌握了，也不失為自己知識(shí)的一個(gè)補(bǔ)充。我今天講的是在WORD中實(shí)現(xiàn)圖形的旋轉(zhuǎn)。

我們先看下面的代碼：

Private Sub CommandButton1_Click()

Dim blnIsInlineShape As Boolean

If Selection.Type = wdSelectionInlineShape Then

blnIsInlineShape = True

Selection.InlineShapes(1).ConvertToShape

End If

Dim intTurn As Integer

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

For I = 1 To Int(360 / xz) * 5

Selection.ShapeRange.IncrementRotation xz

For k = 1 To 10000000

k = k + 1

Next

Next

End Sub

代碼的解析：

①If Selection.Type = wdSelectionInlineShape Then 的意思是說(shuō)選中的圖形是否是嵌入圖形，這里的TYPE是一個(gè)枚舉類型。

WdSelectionType 枚舉 (Word)可以是下面的常數(shù)之一：

wdNoSelection 沒(méi)有選定內(nèi)容。

wdSelectionBlock 列方式選定。

wdSelectionColumn 列選擇。

wdSelectionFrame 框架選擇。

wdSelectionInlineShape 內(nèi)嵌形狀選擇。

wdSelectionIP 內(nèi)嵌段落選擇。

wdSelectionNormal 標(biāo)準(zhǔn)的或用戶定義的選擇容。

wdSelectionRow 行選擇。

wdSelectionShape 形狀選擇。

② Selection.InlineShapes(1).ConvertToShape 表示的是將嵌入式的圖形轉(zhuǎn)換為可以自由浮動(dòng)的圖形。

Expression.ConvertToShape表示的是將嵌入式圖形轉(zhuǎn)換為可自由浮動(dòng)的圖形。 Expression 參數(shù)是是必需的。 表示一個(gè)代表 'InlineShape' 對(duì)象的變量。

③ Selection.ShapeRange.IncrementRotation xz 表示圖形的旋轉(zhuǎn)

IncrementRotation 方法 (Word)：使指定的形狀繞 Z 軸旋轉(zhuǎn)指定的角度。 .

語(yǔ)法：expression.IncrementRotation( _Increment_ )

其中：

參數(shù)expression 是必需的。 是一個(gè)代表 ShapeRange 對(duì)象的變量。

參數(shù)Increment是必需的，以度為單位。 為正值時(shí)順時(shí)針旋轉(zhuǎn)形狀，為負(fù)值時(shí)逆時(shí)針旋轉(zhuǎn)形狀。

④ For k = 1 To 10000000

k = k + 1

Next

是一段最蠢但最好理解的延時(shí)。

下面看界面截圖：

點(diǎn)擊圖形旋轉(zhuǎn)：看下面的錄屏：

截圖：

先會(huì)提示是輸入旋轉(zhuǎn)的角度；

今日內(nèi)容回向：

1 在WORD中如何實(shí)現(xiàn)圖形的旋轉(zhuǎn)？

2 在實(shí)現(xiàn)旋轉(zhuǎn)的過(guò)程中，都用到了哪幾個(gè)控制過(guò)程？