Gelés tous les calques sauf 1 en VBA
Résolu/Fermé
fabdu91630
Messages postés
22
Date d'inscription
vendredi 20 mai 2011
Statut
Membre
Dernière intervention
31 mai 2011
-
26 mai 2011 à 11:26
fabdu91630 Messages postés 22 Date d'inscription vendredi 20 mai 2011 Statut Membre Dernière intervention 31 mai 2011 - 27 mai 2011 à 08:58
fabdu91630 Messages postés 22 Date d'inscription vendredi 20 mai 2011 Statut Membre Dernière intervention 31 mai 2011 - 27 mai 2011 à 08:58
A voir également:
- Gelés tous les calques sauf 1 en VBA
- Iphone je n'entend pas mon interlocuteur sauf en haut parleur - Forum iPhone
- Vba pour les nuls pdf - Forum VB / VBA
- Erreur 1004 vba ✓ - Forum VB / VBA
- Vba ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA
- Find vba - Astuces et Solutions
1 réponse
fabdu91630
Messages postés
22
Date d'inscription
vendredi 20 mai 2011
Statut
Membre
Dernière intervention
31 mai 2011
27 mai 2011 à 08:58
27 mai 2011 à 08:58
Sub GelerTousLesCalquesSaufDeux()
Dim calque As AcadLayer
'Parcourir tous les calques dans la collection Calques du dessin :
For Each calque In ThisDrawing.Layers
'Si le nom du calque n'est pas égal au nom des calques qu'on ne veut pas geler :
If calque.Name <> "Nom calque 1" And calque.Name <> "Nom calque 2" Then
'Geler le calque sauf le calque 0 qui ne peut pas être gelé
If calque.Name <> "0" Then calque.Freeze = True
End If
Next
End Sub?
Dim calque As AcadLayer
'Parcourir tous les calques dans la collection Calques du dessin :
For Each calque In ThisDrawing.Layers
'Si le nom du calque n'est pas égal au nom des calques qu'on ne veut pas geler :
If calque.Name <> "Nom calque 1" And calque.Name <> "Nom calque 2" Then
'Geler le calque sauf le calque 0 qui ne peut pas être gelé
If calque.Name <> "0" Then calque.Freeze = True
End If
Next
End Sub?
