Dim p As Picture With Selection Set p = .Parent.Pictures.Paste p.Top = .Top p.Left = .Left p.ShapeRange.LockAspectRatio = msoTrue '鎖
Please follow and like us:
Dim p As Picture With Selection Set p = .Parent.Pictures.Paste p.Top = .Top p.Left = .Left p.ShapeRange.LockAspectRatio = msoTrue '鎖
有時候想要自己定義資料的型態(Type),所以就需要先宣告:
Type PersonalDataType Name As String ID As Integer Address As String End Type
最近迴響