VBA Powerpoint: xử lý độ phân giải và kích thước 1 hình/shape đã chọn

 Sub SetImageResolution()

Dim shp As shape

Dim widthInInches As Double

Dim heightInPixels As Double

Dim widthInPixels As Double

Dim dpi As Double

' Ð?t DPI (dots per inch) c?a màn hình

dpi = 300 ' Thông thu?ng là 96 DPI cho màn hình

' Chi?u ngang hình mong mu?n (13.33 inch)

widthInInches = 13.33

' Ð? phân gi?i mong mu?n

widthInPixels = 1280

heightInPixels = 1024

' Ki?m tra xem có d?i tu?ng nào du?c ch?n không

If ActiveWindow.Selection.Type = ppSelectionShapes Then

Set shp = ActiveWindow.Selection.shapeRange(1)

 shp.LockAspectRatio = msoTrue

        shp.Width = 1280

        shp.Height = 1024

        shp.Width = 960

' Ð?t v? trí ngang và d?c

shp.Left = 0

shp.Top = 0

' Khóa t? l? khung hình

shp.LockAspectRatio = msoTrue

Else

MsgBox "Select object.", vbExclamation

End If

End Sub