เจอีซี่เดฟ

 .. https://snappytux.com/how-to-fix-e-could-not-get-lock-var-lib-dpkg-lock-error-on-ubuntu/ ..

 .. ' CentimetersToPoints(), InchesToPoints Sub abc() Dim shp As Word.Shape Dim ishp As Word.InlineShape If Word.Selection.Type <> wdSelectionInlineShape And _ Word.Selection.Type <> wdSelectionShape Then Exit Sub End If If Word.Selection.Type = wdSelectionInlineShape Then Set ishp = Word.Selection.Range.InlineShapes(1) ishp.LockAspectRatio = False ishp.Height = InchesToPoints(1.78) ishp.Width = InchesToPoints(3.17) Else If Word.Selection.Type = wdSelectionShape Then Set shp = Word.Selection.ShapeRange(1) shp.LockAspectRatio = False shp.Height = InchesToPoints(1.78) shp.Width = InchesToPoints(3.17) End If End If End Sub ..