Insertion image (lien hypertexte grisé)

[marcelio]

Bonjour le Forum,

Je travail sur ma feuille avec protection et mot de passe.
A l'aide d'un bouton j'utilise ce code pour inséré des images.

Public Sub insere_image()
Dim ficimg As Variant
ActiveSheet.Unprotect "xxxxx"
On Error Resume Next
Application.Dialogs.Item(xlDialogInsertPicture).Show
With Selection
.Locked = False
.PrintObject = True
.Placement = xlMoveAndSize
End With
ActiveSheet.Protect "xxxxx"
End Sub

Mon souci c'est que je doit ajouter des liens hypertexte à chaque image,
mais la fonction "lien hypertexte " est grisé

Existe t'il une solution à mon problème.
Merci beaucoup de votre aide

Marcelio

 

[JCGL]

Re : Insertion image (lien hypertexte grisé)

Bonjour à tous,

Tu remets la protection en fin de code : elle ne permet plus la création de lien

Autorise les avec : AllowInsertingHyperlinks:=True

A+ à tous

Edition : Salut JiHeme. Ravi de te croiser.

 

[Jiheme]

Re : Insertion image (lien hypertexte grisé)

Bonjour Marcelio

Liens Hypertexte est grise parce que ta feuille est protégée.

A+

Edit : Bonjour JCGL, Trop rapide

 

[marcelio]

Re : Insertion image (lien hypertexte grisé)

Bonjour JCGl, Jiheme,

JCGL j'ai testé ta solution mais c'est toujours pareil le lien hypertexte est grisé et "AllowInsertingHyperlinks:=True" est rouge
Peux tu STP m'indiquer l'endroit exact ou l’insérer par rapport à mon code.
Merci

 

[JCGL]

Re : Insertion image (lien hypertexte grisé)

Bonjour à tous,

Peux-tu essayer avec

Sub insere_image()
    Dim ficimg As Variant
    ActiveSheet.Unprotect
    'On Error Resume Next
    Application.Dialogs.Item(xlDialogInsertPicture).Show
    With Selection
        .Locked = False
        .PrintObject = True
        .Placement = xlMoveAndSize
    End With
    'ActiveSheet.Hyperlinks.Add Anchor:=Selection.ShapeRange.Item(1), Address:= _
        "http://www.excel-downloads.com/forum/209650-insertion-image-lien-hypertexte-grise.html"
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        False, AllowInsertingHyperlinks:=True
    ActiveSheet.EnableSelection = xlUnlockedCells
End Sub

A+ à tous

 

[marcelio]

Re : Insertion image (lien hypertexte grisé)

Oui JCGL cela fonctionne bien,
Mais j'aurais bien aimer que ma feuille est une protection avec mot de passe.
Crois tu que cela peut être possible

A+ Marcelio

 

[JCGL]

Re : Insertion image (lien hypertexte grisé)

Bonjour à tous,

Rajoute ton mot de passe derrière :

ActiveSheet.Unprotect "xxxxx"

et

ActiveSheet.Protect "xxxxx" DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowInsertingHyperlinks:=True
ActiveSheet.EnableSelection = xlUnlockedCells

A+ à tous

 

[marcelio]

Re : Insertion image (lien hypertexte grisé)

Impossible

ActiveSheet.Protect "xxxxx" DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowInsertingHyperlinks:=True

Ce met en rouge

 

[JCGL]

Re : Insertion image (lien hypertexte grisé)

Bonjour à tous,

Toutes mes excuses :

ActiveSheet.Protect "xxxxxl", DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowInsertingHyperlinks:=True
ActiveSheet.EnableSelection = xlUnlockedCells

A+ à tous

 

[marcelio]

Re : Insertion image (lien hypertexte grisé)

Super JCGL
cela fonctionne à merveille
Je te remercie beaucoup de l'aide et de ta patience.
Merci et bonne journée à toi et au forum
Marcelio