سلام دوستان

همونطور که میدونین با کدهای vba خیلی کارها میشه انجام داد. در این تاپیک قصد دارم نحوه تغییر اندازه و سایر مشخصات کامنت ها رو خدمتتون توضیح بدم.

با کد زیر میتونین با یک بار اجرای کد تغییرات زیر رو روی همه کامنت ها اعمال کنید: (با توجه به رنگ نوشته ها و رنگ کدها میتونین متوجه بشید هر خط از کد چه کاری انجام میده)

1- حذف نام کاربری از کامنت ها
2- تغییر مشخصات فونت مثل اسم فونت، بولد بودن و سایز فونت
3- فیت کردن ابعاد کامنت با محتوای کامنت


کد:
Sub FormatComments()
   Dim oComment As Comment, i As Integer
   'Loop through all the comments in the sheet
   For Each oComment In ActiveSheet.Comments
      With oComment.Shape.TextFrame.Characters
         i = InStr(1, .Text, ":" & vbLf)
         If i > 0 Then .Text = Mid(.Text, i + 2)
         With .Font
            .Name = "Arial"
            .Size = 12
            .Bold = True
         End With
      End With
      oComment.Shape.TextFrame.AutoSize = True
   Next
End Sub
اخطار: این یک موضوع قدیمی است
به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.