XL 2013 Creer une loupe dans doument image envoyée depuiis un lien hypertexte excel

gloub · 16 Octobre 2015

Bonjour,
Voilà, je voudrais créer une loupe dans un document image (voir fichiers ci-joints)
Explication:
Dans le fichier "ClicSurlien.xlsx" , je clique sur un hyperlien crée en b2 pour obtenir l'image affichée dans le document "exemple.bmp"
Le fichier exemple.bmp représente la page d'accueil d'un logiciel en ligne permettant de faire des recherches généalogiques. Chaque pages consultée comporte en haut à droite une loupe avec réglette permettant de se promener dans le document en grossissant et en rétrécissant à volonté, afin de mieux comprendre les détails.
Comment faire pour obtenir le même résultat hors ligne, avec par exemple clic sur le nom d'un de mes ancêtres, renvoyant à son acte de naissance, dans lequel je pourrais faire des agrandissements afin de pouvoir mieux lire les documents anciens?
D'avance merci pour votre aide
Cordialement
gloub
A la place du fichier exemple (tros gros pour l'envoi) je vous indique ci-dessous l'url permettant de voir ce que j'aimerais obtenir hors ligne avec mes propres documents.
Visionneuse - Archives de Saône-et-Loire

excfl · 17 Octobre 2015

Re : Creer une loupe dans doument image envoyée depuiis un lien hypertexte excel

Bonjour le forum,

Interlude.

Herdet · 17 Octobre 2015

Re : Creer une loupe dans doument image envoyée depuiis un lien hypertexte excel

Salut le forum,
Un autre interlude !
Loupe réglable pour explorer une image dans un userform

A+
Robert

excfl · 17 Octobre 2015

Re : Creer une loupe dans doument image envoyée depuiis un lien hypertexte excel

Et encore un interlude.

david84 · 17 Octobre 2015

Re : Creer une loupe dans doument image envoyée depuiis un lien hypertexte excel

@Si... pour info chez moi la syntaxe

Code:

Shell "CMD /C magnify"

ou même

Code:

Shell "CMD /Cmagnify"

fonctionne.
A+
@excfl : je ne sais pas si c'est fait exprès ou si c'est un oubli mais l'accès au projet VBA est protégé

Staple1600 · 17 Octobre 2015

Re : Creer une loupe dans doument image envoyée depuiis un lien hypertexte excel

Bonjour à tous

Pour info
Alors sur Excel 2013 , les deux modifs de david84 fonctionnent aussi
J'en profite aussi proposer cette autre possibilité

Code:

Sub mLoupe()
CreateObject("wscript.shell").Run "magnify"
End Sub

excfl · 17 Octobre 2015

Re : Creer une loupe dans doument image envoyée depuiis un lien hypertexte excel

@david84

dans le projet VBA il s'agit d'un simple lien avec un hébergeur de fichiers.
Il faut donc être connecté pour ces Web.xlsm

grisan29 · 17 Octobre 2015

Re : Creer une loupe dans doument image envoyée depuiis un lien hypertexte excel

bonjour excfl

comme le souligne david84 le vba protégé m’empêche de voir si je peux installé le webbroser qui doit être manquant

Pascal

Si... · 17 Octobre 2015

Re : Creer une loupe dans doument image envoyée depuiis un lien hypertexte excel

re

david84 à dit:
Bonjour,

Excellent ! Mais reste à savoir s'il va trouver le défaut...
A+

Au fait, y-a-t-il une raison particulière pour placer la feuille en plein écran ?

Le grand écran n'est là que pour attirer l'attention sur le billet et ne pas être gêné par les barres.

Pour ceux qui ne connaissent pas le tableau de Delacroix, ou qui n'ont pas cherché : "pour 100 balles on n'a plus rien, voire peau de balle" mais, ici, pour une balle ... (surtout si on essaie de la prendre).

Merci pour ta simplification.

Merci Staple pour ta proposition.

excfl · 17 Octobre 2015

Re : Creer une loupe dans doument image envoyée depuiis un lien hypertexte excel

Bonjour grisan29,

Code:

Private Sub Workbook_Open()
  With Sheets("Feuil1")
    .WebBrowser1.Navigate "http://www.................swf"
  End With
End Sub

Un dernier interlude. Le programme normal va reprendre.

Boutons : + - et directionnels.

XL 2013 Creer une loupe dans doument image envoyée depuiis un lien hypertexte excel

gloub

XLDnaute Nouveau

Pièces jointes

excfl

XLDnaute Barbatruc

Pièces jointes

Herdet

Nous a quitté

Pièces jointes

excfl

XLDnaute Barbatruc

Pièces jointes

david84

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

excfl

XLDnaute Barbatruc

grisan29

XLDnaute Accro

Si...

XLDnaute Barbatruc

excfl

XLDnaute Barbatruc

Pièces jointes

Discussions similaires