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

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