Excel中的中心图像单元格

Question

以下代码将图像插入到Excel工作簿的单元格a1中。假设我已经建立了单元格宽度，我将如何将这个图像放在单元格中？谢谢！

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 

Answer 1

你可以尝试电池

Range("A1").HorizontalAlignment = xlCenter 
Range("A1").VerticalAlignment = xlCenter 

https://msdn.microsoft.com/en-us/vba/excel-vba/articles/range-horizontalalignment-property-excel

尝试记录与不同的细胞路线宏，看看记录产生，您可以纳入你当前的代码对齐。