پاک کردن محتویات شیت

**MAHDI7482** · 2019/03/16, 01:13

سلام این دستور تو ماکرو بنویسید و اجرا کنید هم عکس ها پاک میشه هم متنای کل شیت

Sub Macro3()

ActiveSheet.Shapes.SelectAll
Selection.Delete
Cells.Select
Selection.ClearContents
End Sub

**MAHDI7482** · 2019/03/16, 01:21

نوشته اصلی توسط kazem1359

سلام
چند شیت در یک فایل اکسل دارم که در یک شیت محتویات یک سایت اینترنتی گپی پیست شده که محتویات شیت شامل تعدادی عکس و جدول ومتون می باشد حالا می خوام با اجرا ماکرو محتویات چند شیت پاک بشه که با انتخاب کل شیت و دیلیت کردن کل شیت عکسها پاک نمیشه و می باست جداگانه عکسها را دیلیت کنم حالا به نظر شما چگونه می شه با اجرا یک ماکرو محتویات کل یک شیت با عکسها پاک شوند.
ممنون

اگر میخوای عکس های خاصی پاک بشن میتونی اینو بنویسی فقط اسم عکسا رو جایگزین کن

ActiveSheet.Shapes.Range(Array("Picture 28", "Picture 25", "Picture 33")).Select
Selection.Delete