Sub PictSize() Dim PercentSize As Integer PercentSize = InputBox(“Enter percent of full size”, _ “Resize Picture”, 75) If Selection.InlineShapes.Count > 0 Then Selection.InlineShapes(1).ScaleHeight = PercentSize Selection.InlineShapes(1).ScaleWidth = PercentSize Else Selection.ShapeRange.ScaleHeight Factor:=(PercentSize / 100), _ RelativeToOriginalSize:=msoCTrue Selection.ShapeRange.ScaleWidth Factor:=(PercentSize / 100), _ RelativeToOriginalSize:=msoCTrue End If End Sub Trước tiên, macro yêu cầu… Continue Reading Đồ họa chia tỷ lệ trong Macro (Microsoft Word)

Khi bạn đang phát triển macro, bạn có thể muốn thay thế một trong các lệnh tích hợp được Word sử dụng bằng mã macro của riêng bạn. Để làm được điều này, bạn phải tìm ra tên mà Word sử dụng để tham chiếu đến các lệnh cài sẵn.… Continue Reading Tìm và thay đổi lệnh nội bộ của Word (Microsoft Word)