پیست کردن یک عکس در چند ورک شیت به طور همزمان

[komeilex]

​شاید بعضی مواقع فایل اکسلی رو که برای شرکتتون ازش استفاده می کنین از چندین ورک شیت تشکیل شده باشه. بنا به نیاز هرکدوم از این ورک شیت ها شامل اطلاعات یه بخش از سازمانتون هستن که البته باید قابلیت پرینت هم داشه باشن تا تو جلسات بتونین ازشون استفاده کنین. شما می تونین از اطلاعات یه پرینت ساده بگیرن و یا اینکه کمی سلیقه به خرج بدین و لوگوی شرکت رو تو تمام این صفحات قرار بدین. اولین فکری که به برای پیست کردن لوگو تو تمام ورک شیتها به ذهنتون می رسه اینه که خوب اون لوگو رو کپی می کنم و با پایین نگه داشتن کلید کنترل دونه به دونه ورک شیتها رو اتنتخاب می کنم و بعد دکمه پیست رو میزنم. اینجاست که اکسل با پیام خطای "microsoft excel cannot past the datd" مانع این کار میشه.
اینجاست که راه حل ما به کمکتون میاد:p
شما می تونین با ماکرو زیر کار مورد نظرتون رو انجام بدین. البته ابتدا باید لوگو رو کپی کنین تا تو کلیپبردتتون قرار بگیره.



Sub InsertLogo1()
Dim shtSheet As Worksheet

Application.ScreenUpdating = False
For Each shtSheet In Worksheets
With shtSheet
.Activate
.Range("A1").Select
.Paste
End With
Next
Set shtSheet = Nothing
Application.ScreenUpdating = True
End Sub


البته برای اینکه این کارو با ریزه کاریهاش یاد بگیرین میتونین به لینک زیر مراجعه کنین:

http://excelribbon.tips.net/T009205_Pasting_a_Graphic_to_Multiple_Worksheets.h tml?awt_l=Ds2bF&awt_m=JYSzMFXpG4R74X

این تاپیک می تونست تو تالار ویژوال بیسک مطرح بشه ولی شاید اینجا کاربردش بیشتر به چشم بخوره:)