عکس پرسنلی فرد در کامنت با استفاده از vba

**حسام بحرانی** · 2021/12/05, 20:06

قرار دادن عکس در کامنت

نوشته اصلی توسط دکتر علیزاده

سلام خدمت دوستان و اساتید ارجمند
سوال داشتم : در یک شیت مثلا شیت "پرسنل " در ستون 11 نام کامل پرسنلی افراد را دارم و در پوشه ای بنام "عکسهای پرسنل" عکس های پرسنلی همه افراد .
چطور میتوانم با ماکرو عکس پرسنلی هر فرد را در سل نام کامل آن فرد در کامنت درج کنم با قرار گرفتن ماوس روی نام فرد عکس فرد که در کامنت هست ظاهر شود اگه اساتید محترم فایل نمونه بزارن ممنون میشم البته هر چی گشتم درج عکس در کامنت با استفاده از ماکرو در سایت نیافتم . تشکر از همه اساتید

سلام دوست عزیز
میدونم که هدفتون قرار دادن عکس در کامنت از طریق VBA هست اما،

جرا از ابزار خود اکسل استفاده نمی کنید:
قرار دادن عکس در کامنت
موفق باشید.

**دکتر علیزاده** · 2021/12/05, 23:08

نوشته اصلی توسط حسام بحرانی

سلام دوست عزیز
میدونم که هدفتون قرار دادن عکس در کامنت از طریق VBA هست اما،

جرا از ابزار خود اکسل استفاده نمی کنید:
قرار دادن عکس در کامنت
موفق باشید.

سلام دوست عزیز
از شما و سایر دوستان که لطف میکنند به پرسشها پاسخ میدهند سپاسگزارم
آنچه مد نظر بنده است کامنت با ماکرو هست و 1200 رکورد با کامنت گذاری دستی جور در نمیاد .
سپاس گزارم دوستان

**دکتر علیزاده** · 2021/12/06, 00:05

نوشته اصلی توسط generalsamad

با سلام
بفرض عکسهای پرسنلی شما در درایو D و پوشه pic persenel میباشد
اسامی هم در ستون k قرار دارد
از این کد استفاده کنید

کد PHP:


Sub InsertPictureComment()
    Dim PicturePath As String
    Dim CommentBox As Comment
    Dim ScaleValue, LR As Integer
    LR = Cells(Rows.Count, 11).End(xlUp).Row
    ScaleValue = 4
    
    For i = 1 To LR
        Range("K" & i).Select
        PicturePath = "D:\pic persenel\" & Range("K" & i).Value & ".jpg"
        Application.ActiveCell.ClearComments
        Set CommentBox = Application.ActiveCell.AddComment
        CommentBox.Text Text:=""
        
        On Error Resume Next
        
        CommentBox.Shape.Fill.UserPicture (PicturePath)
        CommentBox.Shape.LockAspectRatio = True
        CommentBox.Shape.Width = ScaleValue * CommentBox.Shape.Width
        CommentBox.Visible = False
    Next i
    
    Exit Sub
UserCancelled:
End Sub

با سلام و عرض ادب خدمت استاد بزرگوار
خیلی خیلی سپاسگزارم بینهایت زیباست
ببخشید جسارتا دو تا سوال داشتم اگه ممکنه راهنمائی بفرمائید :
1- چطور میشه سایز عکسهای کامنتها را مثلا 3*2 سانتیمتر تنظیم کرد (سایز کامنت)
2-هر کدام از پرسنل عکسی نداشت به جای کامنت (خالی ) کامنت گذاشته نشود و آن مورد را بدون کامنت گذاری رد شود.
خیلی سپاسگزارم

**generalsamad** · 2021/12/06, 15:06

با سلام
مقدار scalevalue را تغییر دهید تا به اندازه مورد نظر خودتون برسید

کد PHP:


Sub InsertPictureComment()
    Dim PicturePath As String
    Dim CommentBox As Comment
    Dim ScaleValue, LR As Integer
    LR = Cells(Rows.Count, 11).End(xlUp).Row
    ScaleValue = 1
    
    For i = 1 To LR
        Range("K" & i).Select
        PicturePath = "D:\pic persenel\" & Range("K" & i).Value & ".jpg"
        Application.ActiveCell.ClearComments
        Set CommentBox = Application.ActiveCell.AddComment
        CommentBox.Text Text:=""
        On Error GoTo ErrHandler
        CommentBox.Shape.Fill.UserPicture (PicturePath)
        CommentBox.Shape.LockAspectRatio = True
        CommentBox.Shape.Width = ScaleValue * CommentBox.Shape.Width
        CommentBox.Visible = False
    Next i
    Exit Sub
ErrHandler:
Selection.ClearComments
Resume Next
End Sub

**دکتر علیزاده** · 2021/12/06, 18:23

عکس پرسنلی فرد در کامنت با استفاده از vba

نوشته اصلی توسط generalsamad

با سلام
مقدار scalevalue را تغییر دهید تا به اندازه مورد نظر خودتون برسید

کد PHP:


Sub InsertPictureComment()
    Dim PicturePath As String
    Dim CommentBox As Comment
    Dim ScaleValue, LR As Integer
    LR = Cells(Rows.Count, 11).End(xlUp).Row
    ScaleValue = 1
    
    For i = 1 To LR
        Range("K" & i).Select
        PicturePath = "D:\pic persenel\" & Range("K" & i).Value & ".jpg"
        Application.ActiveCell.ClearComments
        Set CommentBox = Application.ActiveCell.AddComment
        CommentBox.Text Text:=""
        On Error GoTo ErrHandler
        CommentBox.Shape.Fill.UserPicture (PicturePath)
        CommentBox.Shape.LockAspectRatio = True
        CommentBox.Shape.Width = ScaleValue * CommentBox.Shape.Width
        CommentBox.Visible = False
    Next i
    Exit Sub
ErrHandler:
Selection.ClearComments
Resume Next
End Sub

سلام استاد عزیزم
از اینکه زحمت تقبل نموده و حوصله به خرج داده و به نحو احسن راهنمائی فرمودید بینهایت سپاسگزارم واقعا کلمات توانائی قردانی را ندارند.
سایه عالی مستدام.