26-03-21, 19:08
|
 | Διαχειριστής Όνομα: Χρήστος Ζώρζος Έκδοση λογισμικού Office: Ms-Office 2016 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική | | Εγγραφή: 20-09-2013 Περιοχή: Κοντά σε ηφαίστειο...
Μηνύματα: 1.046
| |
Γιώργο,
Σ' ευχαριστώ για τα καλά σου λόγια! :) Να 'σαι πάντα καλά! Χρήστο,
Αντικατέστησε: 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).
__________________
Your Curiosity Will Be The Death Of You! |