◆，快被晕死了，VB操作Excel，怎么使插入图片居中的有关问题

◆高手请进，快被晕死了，VB操作Excel，如何使插入图片居中的问题
郁闷得要命，调用服务器过来的图片虽然在Excel单元格内，但是却不会自动在单元格居中．
单元格内如果是文字，就会居中的，但是一换成图片就不会了．


引用excel与打开数据库的代码省掉，以下是调用服务器的图片插入到Excel下的主要代码：
xlsheet.Cells(i, 9).HorizontalAlignment = xlCenter '确保单元格居中
xlsheet.Cells(i, 9).VerticalAlignment = xlCenter '确保单元格居中
Set p = xlsheet.Pictures.Insert("http://www/images/products/b/" & newsmallimg) '调用服务器的图片插入到Excel里
p.Height = p.Height / 1.2 '实际图片偏大，所以缩小一下
p.Width = p.Width / 1.2 '实际图片偏大，所以缩小一下

...........
............

快晕倒了，555 
哪位高手帮忙一下，不甚感激……



[解决办法]
先插入再居中 试试
[解决办法]
参考一下我的这段代码：

VB code

Dim dPicW#, dPicH#, dCellW#, dCellHRange("D8").Select  '选定要插入图片的单元格'取单元格的大小dCellW = Selection.WidthdCellH = Selection.HeightActiveSheet.Pictures.Insert("E:\Temp\0000.jpg").SelectdPicW = Selection.ShapeRange.WidthdPicH = Selection.ShapeRange.Height'重新定位Selection.ShapeRange.IncrementLeft (dCellW - dPicW) / 2Selection.ShapeRange.IncrementTop (dCellH - dPicH) / 2