使用R或cmd在Excel中插入宏

Question

我遇到以下问题：R脚本创建.xlsx文件，其中一个表使用openxlsx库，其中一列由图像组成（每个单元一个图像）。我需要将图像对齐在相应单元格的中心，这似乎是不可能通过openxlsx包进行的。因此，我编写了一个简单的VB script(macro)，它可能会这样做，并希望使用R或cmd将此宏嵌入excel中（因为R可能会调用系统命令）。 可能吗？

如果需要，这是宏：

Sub mymacro()
 Dim Ran As Range
 Dim Sh As Shape
 For Each Sh In ActiveSheet.Shapes
  Set Ran = Sh.TopLeftCell
  Sh.Left = Ran.Left + (Ran.Width - Sh.Width) / 2
  Sh.Top = Ran.Top + (Ran.Height - Sh.Height) / 2
 Next Sh
End Sub