◆高手请进，快被晕死了，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
哪位高手帮忙一下，不甚感激……
[解决办法]
先插入再居中 试试
[解决办法]
参考一下我的这段代码：
Dim dPicW#, dPicH#, dCellW#, dCellH
Range("D8").Select '选定要插入图片的单元格
'取单元格的大小
dCellW = Selection.Width
dCellH = Selection.Height
ActiveSheet.Pictures.Insert("E:\Temp\0000.jpg").Select
dPicW = Selection.ShapeRange.Width
dPicH = Selection.ShapeRange.Height
'重新定位
Selection.ShapeRange.IncrementLeft (dCellW - dPicW) / 2
Selection.ShapeRange.IncrementTop (dCellH - dPicH) / 2
