XL 2016 Proprietés des shape

[KTM]

Bonjour Chers tous
Dans mon classeur j'ai inséré plusieurs formes dans mes Feuilles .
Je voudrais un code pour appliquer à chacune d'elles les propriétés suivantes :
-Ne pas déplacer ou dimensionner avec les cellules
-Ne pas imprimer

Merci

 

[mapomme]

Bonjour @KTM

Le code ci-dessous peut-être ?:

Sub test()
   ActiveSheet.Shapes.SelectAll
   Selection.Placement = xlFreeFloating: Selection.PrintObject = msoFalse
   ActiveSheet.Shapes(1).TopLeftCell.Activate
End Sub

 

[Staple1600]

Bonjour le fil, KM, mapomme

J'étais parti sur une boucle
Et comme j'ai bouclé la boucle alors je poste

Sub mShapes()
Dim shp As Shape
For Each shp In ActiveSheet.Shapes
shp.Placement = xlFreeFloating
shp.Select
Selection.PrintObject = msoFalse
Next
[A1].Select
End Sub

 

[mapomme]

Re,

Ou bien pour toutes les feuilles:

Sub test()
Dim sht, old
   Application.ScreenUpdating = False
   Set old = ActiveSheet
   For Each sht In ThisWorkbook.Sheets
      sht.Select
      If sht.Shapes.Count > 1 Then
         sht.Shapes.SelectAll
         Selection.Placement = xlFreeFloating
         Selection.PrintObject = msoFalse
         sht.Shapes(1).TopLeftCell.Select
      End If
   Next sht
   old.Activate
End Sub

 

[Staple1600]

Re

Sinon avec des endives (et des effets de bords potentiels)

Sub test_II()
With ActiveSheet.DrawingObjects: .Placement = 3: .PrintObject = 0: End With
End Sub

EDITION: Tu m'as pas vu passé, mapomme?

 

[mapomme]

Tu m'as pas vu passé, mapomme?

Si mais c'est déjà le passé.

 

[Staple1600]

Re

•>mapomme
Il n'est jamais trop tard pour un petit Bonjour, non? (passé ou présent (cf message#3)
A moins que tu tiennes griefs pour le "sabotage" d'hier?

 

[mapomme]

Bonjour @Staple1600 (et mille excuses)

VB:

Sub test_II()
With ActiveSheet.DrawingObjects: .Placement = 3: .PrintObject = 0: End With
End Sub

• Une feuille fraiche et vierge
• En A1 mettre une liste de validation
• Sélectionner A1 (la flèche est donc visible)
• Lancer ton dernier code
• Plantage

 

[Staple1600]

Re

J'avais prévenu

Sinon avec des endives (et des effets de bords potentiels)

 

[Staple1600]

Re

Avec effet de bord, mais sans plantage

Sub test_III()
On Error Resume Next
With ActiveSheet.DrawingObjects: .Placement = 3: .PrintObject = 0: End With
End Sub

 

[KTM]

Re

Avec effet de bord, mais sans plantage

Sub test_III()
On Error Resume Next
With ActiveSheet.DrawingObjects: .Placement = 3: .PrintObject = 0: End With
End Sub

Ce code fonctionne bien.
Mais comment l'appliquer a tout le classeur? MERCI

 

[Staple1600]

Bonjour le fil, KTM, mapomme

•>KTM
Bah, simplement en faisant une boucle...
En prenant modèle sur la boucle de mapomme par exemple

Sub test_IV()
Dim sht As Worksheet
Application.ScreenUpdating = False
For Each sht In ThisWorkbook.Worksheets
On Error Resume Next
    With sht.DrawingObjects
        .Placement = 3
        .PrintObject = 0
    End With
Next sht
End Sub

Mais si j'étais moi, (à cause des effets de bord), j'utiliserai plutôt le code de mapommme*, foi de ma pomme
(*:celui du message#4)

 

[KTM]

Bonjour le fil, KTM, mapomme

•>KTM
Bah, simplement en faisant une boucle...
En prenant modèle sur la boucle de mapomme par exemple

Sub test_IV()
Dim sht As Worksheet
Application.ScreenUpdating = False
For Each sht In ThisWorkbook.Worksheets
On Error Resume Next
    With sht.DrawingObjects
        .Placement = 3
        .PrintObject = 0
    End With
Next sht
End Sub

Mais si j'étais moi, (à cause des effets de bord), j'utiliserai plutôt le code de mapommme*, foi de ma pomme
(*:celui du message#4)

Ce code fonctionne à merveille dans mon cas.
Mais je vais aussi expérimenter celui de mapomme .
Mais SVP "c'est quoi effets de bord" ?

 

[mapomme]

effets de bord

C'est une situation à laquelle sont confrontés les Gibis et aussi les Shadoks .

• Pour les Gibis : Le lien ICI
• ET pour les Shadoks : Le lien ICI

Sinon plus précisément (tiré de wikipedia) :

En informatique, une fonction est dite à effet de bord (traduction mot à mot de l'anglais side effect, dont le sens est plus proche d'effet secondaire) si elle modifie un état en dehors de son environnement local, c'est-à-dire a une interaction observable avec le monde extérieur autre que retourner une valeur. Par exemple, les fonctions qui modifient une variable locale statique, une variable non locale ou un argument mutable passé par référence, les fonctions qui effectuent des opérations d'entrées-sorties ou les fonctions appelant d'autres fonctions à effet de bord. Souvent, ces effets compliquent la lisibilité du comportement des programmes et/ou nuisent à la ré-utilisabilité des fonctions et procédures.

Plus communément, un effet de bord apparaît la plupart du temps lorsqu'une modification d'un programme cohérent (valeurs et états pris conformes aux spécifications) aboutit à des valeurs ou des comportements non prévus, à cause de la non prise en compte de la portée, de l'ensemble de définition de variables, ou du contrat des fonctions.

 

[Staple1600]

Re, Bonsoir mapomme

Et en complément, on trouvera ici un effet de bord