欧美性猛交XXXX免费看蜜桃,成人网18免费韩国,亚洲国产成人精品区综合,欧美日韩一区二区三区高清不卡,亚洲综合一区二区精品久久

昨天碰巧想用VBA解決一個(gè)問(wèn)題，因為下載laose發(fā)過(guò)的那個(gè)“圖片分割”工具，總是有問(wèn)題（不知道是不是電腦的問(wèn)題）！于是想著(zhù)自己弄個(gè)小程序，一個(gè)函數就搞定了！它不用安裝，不用設置參考線(xiàn)，不用手動(dòng)調節,只需運行一下宏，就可輕松搞定各種形狀樣式的分割！

操作步驟

 新建幻燈片，打開(kāi)開(kāi)發(fā)工具，VBA的編輯區，插入一個(gè)模塊，將我上傳的文件中的全部代碼，見(jiàn)第8步，拷貝粘貼！怕麻煩的朋友，也可以直接在我的上傳的樣例中，新建一個(gè)幻燈片作為練習，這樣就不用拷貝代碼了！

 選擇版式空白，如下圖

 設置背景格式，選擇你要分割的圖片，填充背景

 添加一個(gè)形狀，你想將圖片分割成什么形狀，就添加什么形狀！什么形狀都可以！比如我們來(lái)個(gè)圓角矩形！形狀的大小，你自己說(shuō)的算！

 為形狀添加一個(gè)動(dòng)作，在插入——動(dòng)作——單擊鼠標——運行宏：選擇默認函數（GetShapeCUT）

 放映幻燈片，單擊該形狀，程序即在后臺運行，當彈出“轉換完畢”的字樣后，則退出放映模式，因為圖片已經(jīng)分割完成了！

因為是以幻燈片的背景做為填充，可能你還看不出來(lái)變化，接下來(lái)就是見(jiàn)證奇跡的時(shí)刻了：添加一個(gè)和幻燈片一樣大的矩形，并置于底層！你看到了嗎？

 背景你可以改變的，這些形狀也是可以改變的，你懂的，anything is possible!

程序代碼

Dim W As Long
Dim H As Long

Sub GetWH()

W = Application.ActivePresentation.PageSetup.SlideWidth
H = Application.ActivePresentation.PageSetup.SlideHeight

End Sub

Sub GetShapeCUT(shp As shape)

Dim wShape As Long
Dim hShape As Long
Dim i, j, n As Integer
Dim WNum As Integer
Dim HNum As Integer

wShape = shp.Width
hShape = shp.Height

Call GetWH

i = W Mod wShape
j = H Mod hShape

If i <> 0 Then
WNum = W \ wShape + 1
Else
WNum = W \ wShape
End If

If j <> 0 Then
HNum = H \ hShape + 1
Else
HNum = H \ hShape
End If

n = 1

For i = 0 To HNum - 1
For j = 0 To WNum - 1
With shp.Duplicate
.Left = j * wShape
.Top = i * hShape
.Name = "N" + CStr(n)
.Fill.Background
.Line.Transparency = 1
n = n + 1
End With
Next
Next
shp.Visible = msoFalse
MsgBox "轉換完畢"

End Sub