在Excel VBA中调整图片大小

Question

我有一个VBA脚本，可以提取图片并将其粘贴到Excel中的特定单元格中，具体取决于另一个单元格的值。

export default class MyController {
  constructor() {
    this.name = "Bobby Tables";
  }
}

import {MyController} from './MyController.js';

angular.module('myApp', [])
  .controller('MyController', MyController);

目前，图片以原始尺寸插入到Excel中。我希望所有这些文件的大小都精确为0.38x0.38。我似乎无法弄清楚脚本中要更改的属性，以便能够实现。

谢谢

Answer 1

lookupPicture.Height = 38
lookupPicture.Width = 38

---

这是缩放属性Width和Height的方法：

lookupPicture.ScaleWidth 10, msoFalse, msoScaleFromTopLeft
lookupPicture.ScaleHeight 10, msoFalse, msoScaleFromTopLeft

MSDN Shape.ScaleWidth Method

按指定的比例缩放形状的宽度。对于图片和OLE对象，可以指示是否要相对于原始尺寸或当前尺寸缩放形状。除图片和OLE对象以外的其他形状始终会相对于其当前宽度进行缩放。