آوریل یک جدول در سند Word خود دارد. یک ردیف با پر رنگ سفارشی فرمت شده است تا با رنگ لوگوی شرکت مطابقت داشته باشد. آوریل اکنون می خواهد آن رنگ پر را در ردیف های دیگر کپی کند. او امیدوار بود از Format Painter استفاده کند، اما این فقط قالب متن را کپی می کند، نه رنگ پر استفاده شده در سلول های جدول. آوریل تعجب می کند که آیا راهی برای کپی کردن رنگ پر از یک ردیف به ردیف دیگر وجود دارد.
چند راه وجود دارد که می توانید به این موضوع نزدیک شوید. یکی این است که به سادگی از ابزارهای موجود در Word استفاده کنید. این مراحل را دنبال کنید:
شکل 1. کادر محاوره ای Colors.
- ردیفی را که از قبل با رنگ مورد نظر پر شده است انتخاب کنید.
- تب Home نوار را نمایش دهید.
- روی فلش رو به پایین سمت راست ابزار Shading در گروه Paragraph کلیک کنید. (این ابزار مانند یک سطل رنگ در حال ریختن به نظر می رسد.) Word یک پالت رنگ را نمایش می دهد.
- روی More Colors کلیک کنید. Word کادر محاوره ای Colors را نمایش می دهد. رنگ سطر انتخاب شده باید قبلاً در کادر محاوره ای نشان داده شود. (شکل 1 را ببینید.)
- روی OK کلیک کنید. (توجه داشته باشید که هیچ تغییری در کادر محاوره ای ایجاد نکرده اید، فقط روی OK کلیک کرده اید.)
- سطرهای دیگر جدول را که می خواهید رنگ پس زمینه آنها را تغییر دهید انتخاب کنید.
- روی ابزار Shading در تب Design روبان کلیک کنید. رنگ مورد نظر شما روی ردیف های انتخاب شده اعمال می شود.
پس از اعمال رنگ مورد نظر، اگر می خواهید آن را در جای دیگری اعمال کنید (شاید در جدول دیگری یا در برخی از سلول هایی که از قلم انداخته اید)، تنها کاری که باید انجام دهید این است که سلول ها را انتخاب کرده و F4 را فشار دهید . سایه زدن روی سلول های انتخاب شده تکرار می شود.
اگر لازم است این کار را با تعدادی جداول یا در تعدادی سند انجام دهید، ممکن است بخواهید از یک ماکرو برای انجام سایه‌زنی استفاده کنید. یک ماکرو کوچک مفید در زیر است:
Sub ShadeTable() Dim backColor As Long Dim foreColor As Long If Selection.Information(wdWithInTable) Then With Selection.Tables(1) backColor = .Cell(1, 1).Shading.BackgroundPatternColor foreColor = .Cell(1, 1).Shading.ForegroundPatternColor .Shading.BackgroundPatternColor = backColor .Shading.ForegroundPatternColor = foreColor End With Else MsgBox "Put the insertion point in a table" End If End Sub
ماکرو کل جدول را بر اساس سایه استفاده شده در خانه اول ردیف اول جدول سایه می اندازد. تنها کاری که باید انجام دهید این است که قبل از اجرای آن، نقطه درج را در جایی در جدول قرار دهید.
