Felix正在编写一个宏，以将图形添加到工作表。他需要相对于特定单元格的左上角放置图形。他想知道如何将图形放置在宏代码内，使其位于给定单元格的右侧和左上角下方。

如果您意识到工作表中的每个单元格都具有定义该单元格的上边缘和左边缘的位置的Top和Left属性，则此任务相对容易实现。您可以通过以下方式稍微调整这些值以获得所需的偏移量：

Dim rCell As Range Set rCell = Range("A2")

With ActiveSheet.Shapes("Picture 1")

.Top = rCell.Top + 5     .Left = rCell.Left + 3 End With

请注意，执行此代码后，图形（由名称Picture 1定义）被放置在单元格A2的顶部边缘的正下方和其左边缘的右侧。

注意：

如果您想知道如何使用此页面（或_ExcelTips_网站上的任何其他页面）中描述的宏，我准备了一个特殊页面，其中包含有用的信息。

点击此处在新的浏览器标签中打开该特殊页面。

_ExcelTips_是您进行经济高效的Microsoft Excel培训的来源。

本技巧（9726）适用于Microsoft Excel 2007、2010、2013、2016、2019和Office 365中的Excel。您可以在此处为Excel的较早菜单界面找到此技巧的版本：

在宏中定位图形。