VBA设置PowerPoint表格单元格填充图片偏移百分比遇平铺问题

解决方案 #

核心原因：直接修改TextureOffsetX/TextureOffsetY属性时，PowerPoint会默认自动将TextureTile属性切换为True，属于该属性触发的内置默认行为。要避免图片平铺，需要按照指定顺序设置参数，显式锁定平铺状态为关闭：

正确设置代码

With $SHP.Table.Cell(1, $i).Shape.Fill
    ' 第一步：先显式关闭平铺模式
    .TextureTile = False
    ' 第二步：设置偏移百分比参数，数值单位为%
    .TextureOffsetX = 25
    .TextureOffsetY = 25
    ' 可选：搭配缩放参数调整填充图片的显示尺寸，以下示例为缩放到原尺寸的50%
    ' .TextureHorizontalScale = 50
    ' .TextureVerticalScale = 50
    ' 第三步：强制再次锁定平铺状态为关闭，避免修改偏移时被系统自动重置
    .TextureTile = False
End With

如果需要更精准控制图片在单元格内的显示范围，也可以结合单元格填充的边距参数调整，避免图片被裁切。

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