如何在VBA中正确复制形状格式？格式未同步问题求解

这和Excel的内存分配特性没关系，问题出在Excel的UI更新延迟——当宏快速执行时，Excel可能还没把形状的新颜色同步到对象模型的属性中，导致你读取到的还是修改前的RGB值。

解决方法有三种： #

• 强制Excel处理未完成的事件：在修改源形状颜色后，添加DoEvents语句，让Excel完成当前的UI更新和属性同步，再执行复制操作：

  ' 先修改源形状颜色
  ws.Shapes("30090").Fill.ForeColor.RGB = vbYellow
  ' 强制同步属性
  DoEvents
  ' 再复制颜色
  Set shapeOrigem = ws.Shapes("30090")
  Set shapeDestino = ws.Shapes("30090b")
  shapeDestino.Fill.ForeColor.RGB = shapeOrigem.Fill.ForeColor.RGB
  

• 直接复用颜色值：不要从形状读取RGB，而是把修改时用的颜色值存成变量，直接赋值给目标形状，彻底跳过属性读取的步骤：

  Dim targetColor As Long
  targetColor = vbYellow ' 这里用你实际的颜色值，比如RGB(255,255,0)
  
  ' 修改源形状
  ws.Shapes("30090").Fill.ForeColor.RGB = targetColor
  ' 直接给目标形状赋值
  ws.Shapes("30090b").Fill.ForeColor.RGB = targetColor
  

• 检查屏幕刷新设置：如果宏开头禁用了屏幕刷新（Application.ScreenUpdating = False），记得在复制颜色前临时开启刷新，或者至少执行DoEvents，避免Excel因为UI冻结导致属性更新滞后。

补充说明 #

Excel的Shapes对象引用是实时绑定的，不会缓存旧属性值。之所以出现读取旧颜色的情况，是因为宏执行速度远快于Excel的UI更新节奏，导致对象模型的属性还没跟上视觉上的变化，并非内存分配问题。

内容的提问来源于stack exchange，提问作者Bruno