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培训的来源。

本技巧（9725）适用于Microsoft Excel 97、2000、2002和2003。您可以在以下位置找到适用于Excel功能区界面的本技巧的版本（Excel 2007及更高版本）：

在宏中定位图形。