时间戳

首页 > 解决方案 > Excel VBA从形状中删除渐变

vba - Excel VBA从形状中删除渐变

问题描述

https://msdn.microsoft.com/en-us/vba/excel-vba/articles/shape-fill-property-excel

 Set myDocument = Worksheets(1) 
    With myDocument.Shapes.AddShape(msoShapeRectangle, 90, 90, 90, 50).Fill 
        .ForeColor.RGB = RGB(128, 0, 0) 
        .BackColor.RGB = RGB(170, 170, 170) 
        .TwoColorGradient msoGradientHorizontal, 1 
    End With

将渐变添加到 Excel 中的形状后如何删除？

标签： vbaexcel

解决方案

该FillFormat.Solid方法将删除任何渐变或图案。

新颜色将是渐变位置 0 处的颜色。

例如，这将从第一个工作表中的第二个形状中删除渐变： 

ThisWorkbook.Worksheets(1).Shapes(2).Fill.Solid

推荐阅读