آموزشی ایجاد اصلاحات مورد نیاز روی کامنت ها

[Amir Ghasemiyan]

سلام دوستان

همونطور که میدونین با کدهای 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
[COLOR=#008000]         i = InStr(1, .Text, ":" & vbLf)
[COLOR=#008000]         If i > 0 Then .Text = Mid(.Text, i + 2)[/COLOR]
[COLOR=#808080]         With .Font[/COLOR]
[COLOR=#808080]            .Name = "Arial"[/COLOR]
[COLOR=#808080]            .Size = 12[/COLOR]
[COLOR=#808080]            .Bold = True[/COLOR]
[COLOR=#808080]         End With[/COLOR]
      End With
[COLOR=#ff0000]      oComment.Shape.TextFrame.AutoSize = True[/COLOR]
   Next
End Sub

[/COLOR]