Affichage d'image .bmp dans cellule excel 2003

Version imprimable

02/02/2009, 15h05
samson_02

Affichage d'image .bmp dans cellule excel 2003

Bonjour à tous et à toutes... :D

Je voudrais afficher une image .bmp dans une cellule excel, dont le chemin (l'image) est affiché dans une cellule d'une autre feuille excel...

En clair :

J'ai une feuille "F_Edit" qui contient une cellule qui a pour valeur une chaine qui représente le chemin d'une image. Ex: C:\Dossier\sous-dossier\image.bmp

J'ai une autre feuille "Detail" qui contient un SmartArt dans lequel, je voudrais afficher l'image qui correspond au chemin de l'autre feuille. Le tout en vba dans l'évènement OnLoad.... si possible

Pourriez-vous m'aider svp... merci d'avance... :D

bonjour,

je te laisse le soin d'adapter les chemins de ce code.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub InsertBMP()
'
Dim cheminBMP As String
cheminBMP = Sheets("Feuil1").Range("H1")
 
    ActiveSheet.Pictures.Insert(cheminBMP).Select
 
    With Selection.ShapeRange
        .Left = Range("J12").Left
        .Top = Range("J12").Top
    End With
 
'
End Sub

cordialement

Merci bcp pour ta réponse rapide.... Je la teste et te fais un "rapport"... :D :D

re,

ça ne semble pas fonctionner... :?

Voilà ce que j'ai indiqué dans mon module.... rien ne se passe...
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Sub InsertBMP() Dim cheminBMP As String cheminBMP = Sheets("F_Edit").Range("AK2") 'MsgBox "" & cheminBMP ActiveSheet.Pictures.Insert(cheminBMP).Select With Selection.ShapeRange .Left = Range("B50").Left .Top = Range("B60").Top End With End Sub
Je dois peut-être activer la sheet "Detail"...?...

bonjour,

initialise tes feuilles avant

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub InsertBMP()
 dim F1 as worksheet
dim F2 as worksheet

Set F1 = sheets("F_Edit")
Set F2 = sheets("Détail")

Dim cheminBMP As String
cheminBMP = F1.Range("AK2")
 
'MsgBox "" & cheminBMP
 
    ActiveSheet.Pictures.Insert(cheminBMP).Select
             
    With Selection.ShapeRange
        .Left = F2.Range("B50").Left
        .Top = F2.Range("B60").Top
    End With
 
End Sub

tu nous tiens au courant

03/02/2009, 09h21
samson_02

Bonjour à tous....

Désolé pour le "feedback" tardif.... :oops:
Ca fonctionne très bien, comme tu l'as indiqué..... en initialisant les feuilles...

Il y a cependant un détail que je dois régler, c'est la taille de l'image affichée.
Comment puis-je définir sa taille lors de l'affichage...

De plus, comment puis-je lancer cette macro à partir d'access...?....
Merci beaucoup pour votre aide.... à tous... :D :D

Suffit que tu continues sur ta lancée...
Code:

1 2 3 4 5 6 With Selection.ShapeRange .Left = F2.Range("B50").Left .Top = F2.Range("B60").Top .Width = F2.Range("B60").Width .Height = F2.Range("B60").Height End With
Bonne journée

(hello fred)

Edit
Avec ce code tu vas avoir une déformation de l'image. Pour régler ce problème, tu dois définir une priorité : Soit tu privilégies la hauteur, soit la largeur.
Si c'est la hauteur, tu établis le rapport Hauteur de l'image/Hauteur de la cellule, rapport que tu appliques à la largeur de l'image, soit... tu fais l'inverse ;)
Pour avoir la hauteur de l'image c'est simplement
Code:

1 2 3 With Selection.ShapeRange Hauteur = .Height '...
Quant à la hauteur de la cellule, tu l'as avec F2.Range("B60").Height vu plus haut.

03/02/2009, 09h35
samson_02

Ok merci beaucoup, je vais appliquer tes conseils et te tenir au courant du résultat... :D :D
03/02/2009, 10h28
samson_02

Tout marche comme vous me l'avez indiqué, cependant, il est plus facile d'ajuster la taille de l'image dès le départ, au lieu de changer la taille de mes cellules, entrainant des effets indésirables dans ma feuille...

Merci beaucoup pour votre soutien à tous... :D :D :D
03/02/2009, 22h10
fred65200

bonjour, pour la taille des images, tu peux aussi regarder ce fil entretenue par Ouskel'n'or et moi

http://www.developpez.net/forums/d41...ensions-image/

fred