摘要：
$p = "F:\book\Other\传统文化\书法\吴让之篆书吴均帖\Images" Set-Location $p $str = "风烟俱净天山共色从流飘荡任意东西自富阳至桐庐一百许里奇山异水天下独绝水皆缥碧千丈见底游鱼细石直视无碍急湍甚箭猛浪若奔夹岸高山皆生寒树负势竞上互相轩邈争高直指千百成 阅读全文
摘要：
Sub change_pic() Dim doc As Document Set doc = Application.ActiveDocument For Each i In doc.InlineShapes i.LockAspectRatio = True ' 锁定长宽比 i.Height = 5 阅读全文