سلام دوستان
همونطور که میدونین با کدهای 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
اخطار: این یک موضوع قدیمی است
به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.
علاقه مندی ها (Bookmarks)