excel 怎么使插入形状随单元格变动

我在单元格中插入形状，怎么使形状随单元格变动。

右键选中这个形状，选“设置自选图形格式”，在弹出的对话框中选“属性”选项卡，选中里面的“大小、位置随单元格而变”。
补充：
要注意“形状”的位置，这个形状不能“完全”在一个单元格内，即形状的边框要与单元格的边框至少要有一个重叠。否则只能随单元格移动而不能改变大小。

打开d:\tree目录下的工作簿,在excel工作表中同时按下alt和f11两个键,进入vba编程,点击vba编程中的菜单:“插入-模块”,把下面的代码粘贴到模块的空白区以后,返回到excel工作表,点击菜单工具-宏-宏,选择宏名kkk 运行代码。 sub kkk() aa = activeworkbook.sheets.count for i = 1 to aa worksheets(i).select worksheets(i).range("a2").select sheets(i).range("a2").rowheight = 60 activesheet.shapes.addshape(msoshaperectangle, 0, 48, 72, 60).select selection.shaperange.fill.visible = msofalse selection.shaperange.shadow.obscured = msotrue selection.shaperange.shadow.type = msoshadow18 selection.shaperange.fill.userpicture "d:\pic\" & worksheets(i).range("a1").value & ".jpg" next i end sub 每个工作表的a1单元格应输入“王二”等姓名,而且与d:\pic 目录下的图片文件对应