איך להעתיק גיליון בלי הגרפים?

לכולנו יש גיליונות עבודה שמכילים נתונים, והרבה פעמים מלווים בגרפים, או סוגים אחרים של גרפיקה.
נניח שאנחנו רוצים להעתיק את נתוני הגיליון לגיליון חדש, אבל בלי התרשים,
איך עושים זאת?
פשוט מאוד – נכבה את האפשרות להעתיקת אובייקטים באמצעות הפקודה

Application.CopyObjectsWithCells = False

ולא נשכח להדליק אותה חזרה בסיום הפעולה, כך:

Application.CopyObjectsWithCells = True

אז מה בעצם העושה הפקודה?

אומרת לאקסל שלא להעתיק אובייקטים, בעת ביצוע פעולת ההעתקה.
אובייקט יכול להיות גרף, תמונה, כפתור, פקד טופס, פקד ActiveX, תמונה שהוספנו, SmartArt
ובעצם, כל גרפיקה שהוספנו לגיליון.

בואו נראה דוגמה:

אני מעוניינת להעתיק את נתוני גיליון 1 לגיליון 2, ללא הגרפיקה:

Application.CopyObjectsWithCells = False
Cells.Copy Sheets(2).Range("a1")
Application.CopyObjectsWithCells = True

לאחר מכן מעתיקה את הנתונים מהגיליון הראשון לגיליון השני,
ולסיום, מדליקה בחזרה את האפשרות.

נסו ותהנו (: