VBA从另一个形状颜色获取多个渐变颜色

Sub GetGradientColorsFromShape()
    Dim sourceShape As Shape
    Dim targetShape As Shape
    Dim numColors As Integer
    
    ' 设置源形状和目标形状
    Set sourceShape = ActiveSheet.Shapes("SourceShape")
    Set targetShape = ActiveSheet.Shapes("TargetShape")
    
    ' 设置渐变颜色数量
    numColors = 5
    
    ' 获取源形状的颜色信息
    Dim redSource As Integer
    Dim greenSource As Integer
    Dim blueSource As Integer
    
    redSource = sourceShape.Fill.ForeColor.RGB Mod 256
    greenSource = (sourceShape.Fill.ForeColor.RGB \ 256) Mod 256
    blueSource = (sourceShape.Fill.ForeColor.RGB \ 65536) Mod 256
    
    ' 计算渐变颜色
    Dim redStep As Double
    Dim greenStep As Double
    Dim blueStep As Double
    
    redStep = redSource / (numColors + 1)
    greenStep = greenSource / (numColors + 1)
    blueStep = blueSource / (numColors + 1)
    
    Dim i As Integer
    For i = 1 To numColors
        ' 计算渐变颜色的RGB值
        Dim redTarget As Integer
        Dim greenTarget As Integer
        Dim blueTarget As Integer
        
        redTarget = Int(redSource - i * redStep)
        greenTarget = Int(greenSource - i * greenStep)
        blueTarget = Int(blueSource - i * blueStep)
        
        ' 应用渐变颜色到目标形状
        targetShape.Fill.ForeColor.RGB = RGB(redTarget, greenTarget, blueTarget)
        
        ' 在这里可以根据需要做一些其他操作，比如复制目标形状、移动位置等
        
        ' 等待一段时间，观察效果
        Application.Wait (Now + TimeValue("0:00:01"))
    Next i
End Sub