Est-ce un rêve ?

[boulou]

J'ai une image importée dans Excel et qui occupe l'intégralité de l'écran en feuille 2. Existe il une possibilté d'intégrer une fonction zoom comme elle existe dans Picasa par exemple ?
L'un de vous aurait-il dans ce cas la possibilité de m'orienter vers un exemple ?

Merci.

 

[néné06]

Re : Est-ce un rêve ?

bonjour Boulou
Voici un exemple que j'utilise pour placer une image dans une cellule en réglant la taille par Selection.ShapeRange.Width = 110

Public Sub affiche_photos_noms()
Dim cel As Range
Dim image As Object
Dim monimage As Shape
Dim FA As Shape
Cells((a + 1), 1).Select 'affiche l'image sous la cellule qui porte le nom "de l'image"
If Cells(a, 1) <> "" Then
On Error Resume Next
ActiveSheet.Pictures.Insert(ActiveWorkbook.Path & "\img\" & Cells(a, 1) & ".jpg").Select
Selection.ShapeRange.Width = 110 'taille de limage
Set image = Selection.ShapeRange
Selection.ShapeRange.Name = Cells(a, 1)'donne à la shape le nom de l'image
End If
End Sub

A+

 

[boulou]

Re : Est-ce un rêve ?

Merci à toi, mais t'est possible de me communiquer ton fichier en exemple ?

 

[néné06]

Re : Est-ce un rêve ?

Je te le fais parvenir en fichier privé
A+

 

[néné06]

Re : Est-ce un rêve ?

Finalement je le fais parvenir ici

Créer un dossier "imgpiscine" à coté du prog et placer les photos

 

[boulou]

Re : Est-ce un rêve ?

Merci, c'est trés aimable à toi mais il ne fonctionne pas à l'arrivée. Peux-tu le vérifier ?

 

[tototiti2008]

Re : Est-ce un rêve ?

Bonjour boulou, bonjour néné,

Le regretté Ti nous avait concocté une magnifique loupe
par exemple disponible là

www.veriti.fr &bull; Voir le sujet - Loupe de Thierry Pourtier (Ti) à adapter pour un USF

 

[boulou]

Re : Est-ce un rêve ?

Merci beaucoup. Une solution qui semble me convenir et que je vais tester durant le WE.