在Excel单元格中居中图像
下面的代码插入一个图像到Excel工作簿的单元格a1中。 假设我已经build立了单元格的宽度，我将如何将这个图像放在单元格中？ 谢谢！
Set objExcel = CreateObject("Excel.Application") objExcel.Visible = True objExcel.DisplayAlerts=False Set objWorkbook1= objExcel.Workbooks.Open("workbook.xlsx") Set Xlsheet = objWorkbook1.Worksheets("Cover") Xlsheet.Range("a1").Activate Xlsheet.Pictures.Insert("logo.png") objWorkbook1.saveAs "workbook_center.xlsx", 51 objWorkbook1.close objExcel.DisplayAlerts=True set objExcel = Nothing
你可以尝试alignment单元格
Range("A1").HorizontalAlignment = xlCenter Range("A1").VerticalAlignment = xlCenter
https://msdn.microsoft.com/en-us/vba/excel-vba/articles/range-horizontalalignment-property-excel
尝试使用不同的单元格alignment方式录制macros，并查看录制器生成的内容，您可以将它们合并到当前的代码中。