26-03-21, 20:27
|
| Όνομα: Χρήστος Έκδοση λογισμικού Office: Ms-Office 2010, Ms-Office 2016 Γλώσσα λογισμικού Office: Ελληνική | | Εγγραφή: 02-11-2018
Μηνύματα: 51
| |
Παράθεση:
Αρχική Δημοσίευση από ChrisGT7  Γιώργο,
Σ' ευχαριστώ για τα καλά σου λόγια! :) Να 'σαι πάντα καλά! Χρήστο,
Αντικατέστησε: If Shp.Type = msoAutoShape Then Shp.Delete
με: If Shp.Type <> 8 And Shp.Type <> 12 And Shp.Type <> 13 Then Shp.Delete
να δεις αν σε καλύπτει. Mπορείς να αναζητήσεις τους τύπους σχημάτων εδώ.
Ένας άλλος τρόπος ελέγχου είναι μέσω του ονόματος του σχήματος (ιδιότητα Name αντί για την Type). | οκ ευχαριστώ
ευχαριστώ και το λινκ, θα το επεξεργαστώ.  |