插入macros使用R或cmd在Excel中

我有以下问题：R脚本使用openxlsx库创build.xlsx文件，其中一个列由图像组成（每个单元格一个图像）。 我需要通过openxlsx软件包将对应的单元格中间的图像alignment，这看起来是不可能的。 因此，我写了一个简单的VB script(macro) ，它可能会这样做，并希望使用R或cmd（因为R可能会调用系统命令）在Excel中embedded此macros。 有可能吗？

这是macros如果需要的话：

 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