這個可以對指定圖形進行填色,然后復制一個圖形出來,再填上別的顏色,但這是對Shapes(2)進行的操作,如果要對滑鼠選定的圖形進行這樣的操作,需要如何改了,請幫忙看一下,多謝了!
ActiveDocument.ReferencePoint = cdrMiddleRight
ActiveLayer.Shapes(2).Fill.UniformColor.CMYKAssign 0, 100, 100, 0
Dim s1 As Shape
Set s1 = ActiveLayer.Shapes(2).Duplicate
s1.Move -1.90548, 0.047165
s1.OrderToFront
s1.Fill.UniformColor.CMYKAssign 0, 0, 0, 80
轉載請註明出處,本文鏈接:https://www.uj5u.com/gongcheng/125034.html
標籤:VBA
