Function Get_Color(ShapeName As Variant) As Long Get_Color = ActiveSheet.Shapes(ShapeName).Fill.ForeColor End Function Sub gradients() Dim Point_Index As ...
確定! 回上一頁