[Résolu par DoubleZero] Ne pas déplacer l'image

Bearn 64 · 6 Février 2016

Bonjour le Forum,

Je souhaiterai que l'utilisateur ne puisse déplacer l'image présente sur une feuille avec clic droit etc..

Voila mon code :

Code:

Sheets("Menu").Activate
          répertoirePhoto = ThisWorkbook.Path & "\"
          nomproduits = "ouiproduits"
          Set img = ActiveSheet.Pictures.Insert(répertoirePhoto & nomproduits & ".jpg")
          img.Left = [B13].Left
          img.Top = [B13].Top
          img.Name = nomproduits
          ActiveSheet.Shapes("ouiproduits").Select
          Selection.OnAction = "Imprime"
          Range("A1").Select

pour l'effacer j'utilise le code :

Code:

'Efface les shapes d'un champ
  For Each s In ActiveSheet.Shapes
    If Not Intersect(s.TopLeftCell, Range("$B$13")) Is Nothing Then
       s.Delete
    End If
  Next s

J’insère une image de mon répertoire dans la cellule B13 puis je lui affecte une macro Imprime.

Tout est OK.
Mais car il y a un mais. Si je fait un clic droit l'image est sélectionnée et je peut la déplacer chose que je ne voudrai pas.

Une idée serai la bienvenue!!

Merci de votre attention.

DoubleZero · 6 Février 2016

Re : Ne pas déplacer l'image

Bonjour, Bearn 64, le Forum,

Comme ceci ?

Code:

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error Resume Next
    With ActiveSheet.Shapes("ouiproduits")
        .Left = [B13].Left
        .Top = [B13].Top
    End With
End Sub

A bientôt

gilbert_RGI · 6 Février 2016

Re : Ne pas déplacer l'image

bonjour,

un petit exemple

mapomme · 6 Février 2016

Re : Ne pas déplacer l'image

Bonjour Bearn 64, DoubleZero

, gilbert_RGI

,

Pour le fun, un autre essai qui devrait en terme d'utilisation de temps machine se retrouver entre la proposition de DoubleZero et celle de gilbert_RGI.

Il est basé sur Application.OnTime (toutes les 2 sec mais c'est paramétrable dans Module1 -> constante "Periode").
Le nom des images de Feuil1 à laisser fixes sont indiqués dans la constante texte "FormesFixes".

A l'ouverture du classeur, on stocke dans chaque image devant restée fixe les coordonnées de cette l'image.

Si Feuil1 est la feuille active alors, on repositionne les images fixes toutes les 2 secondes.
Si une autre feuille est active, le repositionnement est normalement suspendu.

Les coordonnées des images fixes ne sont pas écrites en dur dans le code mais récupérées à chaque ouverture du classeur.

Il y a un peu de code dans les modules de code de "Feuil1" et "ThisWorkbook" ; le gros du code étant dans "Module1".

Nota 1: si on copie une image fixe de Feuil1 pour la coller dans Feuil1 alors cette nouvelle image devient temporairement fixe. Il suffit de fermer le classeur (en l'enregistrant !) et de le ré-ouvrir => la nouvelle image est mobile.

Nota 2 : ou bien pour pouvoir travailler tranquillement sur les images ou le code, on peut stopper le repositionnement automatique en exécutant la macro ARRET (menu Développeur / Macros ou bien ALT+F8). Pour relancer le repositionnement auto, exécuter la macro INIT (menu Développeur / Macros ou bien ALT+F8)

Bearn 64 · 6 Février 2016

Re : Ne pas déplacer l'image

Bonjour DoubleZero, gilbert_RGI, mapomme, Le Forum.

Merci de toutes ces réponses.
Je suis plutôt bleu.

mapomme : pas fonctionnel pour moi le compteur tourne mais les images restent ou elles sont déplacées !!!!

gilbert TGI : Un peu complexe pour mes connaissances.

DoubleZero : je ne comprends pas comment insérer ton code dans le mien car je suis déjà dans une Sub End sub

Merci de vos interventions un complément serai le bienvenu mais simple SVP

DoubleZero · 6 Février 2016

Re : Ne pas déplacer l'image

Bonjour à toutes et à tous,

Bearn 64 à dit:
... DoubleZero : je ne comprends pas comment insérer ton code dans le mien car je suis déjà dans une Sub End sub...

Le code (macro événementielle) déposé en #2 doit être logé dans le module de l'onglet contenant l'image "ouiproduits".

A bientôt

Bearn 64 · 6 Février 2016

Re : Ne pas déplacer l'image

Bonjour DoubleZero,

Ok code mis dans la feuille Menu.

mais avec un clic droit on déplace l'image.

A plus

DoubleZero · 6 Février 2016

Re : Ne pas déplacer l'image

Re-bonjour,

Bearn 64 à dit:
... avec un clic droit on déplace l'image...

Certes... Mais un clic sur n'importe quelle cellule permet à l'image de retrouver l'emplacement souhaité.

A bientôt

Bearn 64 · 6 Février 2016

Re : Ne pas déplacer l'image

Re : DoubleZero

Mille excuses, je n'avais pas tester comme cela donc très bien et merci encore.

Donc merci et a bientôt.

Béarn

gilbert_RGI · 6 Février 2016

Re : Ne pas déplacer l'image

Bearn 64 à dit:
Bonjour DoubleZero, gilbert_RGI, mapomme, Le Forum.

Merci de toutes ces réponses.
Je suis plutôt bleu.

gilbert RGI : Un peu complexe pour mes connaissances.

un complément serait le bienvenu mais simple SVP

dans le code l'image se nomme image 1

La valeur 0 affectée aux propriétés Left ou Top place le bord du contrôle à la gauche ou au bord supérieur de son conteneur

dans le fichier elle est positionnée à 300 depuis le haut de l'écran
et à 300 de la gauche de l'écran

si elle est déplacée elle revient a sa position initiale

DoubleZero · 6 Février 2016

Re : Ne pas déplacer l'image

Re-bonjour,

Bearn 64 à dit:
... Mille excuses...

Aucune gravité, Bearn 64 !

Si plusieurs images ne doivent pas changer de position, mieux vaut adopter le superbe travail de mapomme

A bientôt

Si... · 6 Février 2016

Re : [Résolu par DoubleZero] Ne pas déplacer l'image

salut

Que faire Si… après sa sélection l’image a été effacée voire agrandie, tournée… ?
Faut-il imprimer la nouvelle venue ?

DoubleZero · 7 Février 2016

Re : [Résolu par DoubleZero] Ne pas déplacer l'image

Re-bonjour, bonjour, Si

,

Si... à dit:
... Que faire Si… après sa sélection l’image a été effacée voire agrandie, tournée… ?
Faut-il imprimer la nouvelle venue ?...

On équipe de moufles la personne ét

urdie, puis on insère, à nouveau, l'image.

A bientôt

Si... · 7 Février 2016

Re : [Résolu par DoubleZero] Ne pas déplacer l'image

re

J’avais omis, mapomme

, de te dire que j’ai aimé, apprécié ta production haute en couleur et avec un scénario original si bien tourné.

Merci O_O d’avoir joué le rôle de « l’avocat du Diable »

Dernières délibérations

Un détournement d’image est, selon ma loi, prémédité !
Le prévenu n’est pas considéré comme étourdi mais plutôt comme pirate avec une condamnation*, selon ta sentence, à galérer**.

*manque de Pau pensera Béarn

?
** c’est ce que je fais comme un « hacker » qui pompe tes images en outrepassant tes droits d’Auteure – avec les nouvelles règles qui permettent bien des abus et encore plus !

Bon dimanche

mapomme · 7 Février 2016

Re : [Résolu par DoubleZero] Ne pas déplacer l'image

Bonjour Si.., DoubleZero,

Si... à dit:
production haute en couleur et avec un scénario original si bien tourné

Vous nous préparez quoi ? Un remake ?

Regarde la pièce jointe 958027

PS: Mille excuses pour Romy

[Résolu par DoubleZero] Ne pas déplacer l'image

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

Pièces jointes

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

Pièces jointes

Discussions similaires

Partager cette page

Statistiques des forums