我如何在漸變形狀上獲得色塊？ VBA

我如何在形狀上獲得色塊？我正在創建一個樹狀流程圖，我想給它們一個漸變，我也想按百分比更改漸變，所以我希望一個節點的顏色停止爲50％。我如何在漸變形狀上獲得色塊？ VBA

所以，我直到現在對於給漸變圖案的代碼是：

 QNode.Shapes(1).Fill.TwoColorGradient msoGradientVertical, 1

我嘗試類似：

QNode.Shapes(1).Fill.Interior.Gradient.ColorStops.Add(0.66)

不工作...

規格：應該在2003年工作

來源

2017-06-15 Guilherme Felipe Reis

我發現解決方案：

 With QNode.Shapes(1).Fill 
      .ForeColor.RGB = RGB(255, 255, 255) 
      .TwoColorGradient msoGradientVertical, 1 
      .GradientStops(2).Color = RGB(0, 0, 0) 
      .GradientStops(2).Position = 0.66    
     End With

我只需要使用GradietStops = d與我想要的位置，在這種情況下，我只想兩個位置，所以gradientStops（1）和gradientStops（2），但你也可以添加多個位置。

 .GradientStops.Insert RGB(0, 0, 0), 0.66

來源

2017-06-15 10:29:10

我如何在漸變形狀上獲得色塊？ VBA

回答

相關問題