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

尝试录制具有不同单元格对齐的宏，并查看录制器产生的内容，您可以将其合并到当前代码中。