Importer l'image de la Feuil1 dans celle de l'USF

F

fario42

Guest

• 21 Octobre 2010

• #2

Re : Importer l'image de la Feuil1 dans celle de l'USF

salut,

qu'est ce que tu veux faire? mettre l'image sur le bouton?

 

Vote positif 0 Vote négatif

P

PMO2

XLDnaute Accro

• 21 Octobre 2010

• #3

Re : Importer l'image de la Feuil1 dans celle de l'USF

Bonjour,

Essayez avec le code suivant

Code:

Private Sub CommandButton1_Click()
Const CHEMIN As String = "c:\tempo_pmo.jpg"
Dim SH As Shape
Dim CO As ChartObject
Set S = Sheets("Feuil1")
Set SH = S.Shapes("Picture 1")
Set CO = S.ChartObjects.Add(SH.Left, SH.Top, SH.Width, SH.Height)
SH.Copy
With CO.Chart
  .Paste
  .Export Filename:=CHEMIN
End With
CO.Delete
Me.Image1.Picture = LoadPicture(CHEMIN)
Kill CHEMIN
End Sub

Cordialement.

PMO
Patrick Morange

 

Vote positif 0 Vote négatif

YANN-56

XLDnaute Barbatruc

• 21 Octobre 2010

• #4

Re : Importer l'image de la Feuil1 dans celle de l'USF

Bonsoir fario,

Je cherche à la mettre simplement dans l'image1 de mon USF.
comme mon embryon de code le montre.

Merci à toi d'avoir regardé, et au plaisir de te lire.

Yann

 

Vote positif 0 Vote négatif

YANN-56

XLDnaute Barbatruc

• 21 Octobre 2010

• #5

Re : Importer l'image de la Feuil1 dans celle de l'USF

Bonsoir PMO2,

En réalité, ce n'est pas le chargement de la "Shape" qui me pose souci.

C'est que je modifie, après son initialisation, sa largeur (Par exemple) avec:

Code:

ActiveSheet.Shapes("Picture 1").Select
Selection.ShapeRange.PictureFormat.CropLeft = 135 ' (135 ou autres mesures)

Donc par la suite son "CHEMIN" initial ne m'importe plus.

Ce n'est qu'après cette modification que je souhaite la mettre avec
ses nouvelles dimensions dans l'USF.

Le " LoadPicture" que je cherche est entre la Feuil1, et l'Image1 de l'USF.

Merci pour ton aide...

Yann

 

Vote positif 0 Vote négatif

P

PMO2

XLDnaute Accro

• 21 Octobre 2010

• #6

Re : Importer l'image de la Feuil1 dans celle de l'USF

Bonjour,

Const CHEMIN As String = "c:\tempo_pmo.jpg"

Cliquez pour agrandir...

C'est le chemin d'un fichier temporaire qui est détruit à la fin de la procédure par

Kill CHEMIN

Cliquez pour agrandir...

Après manipulation de la Shape, pour réactualiser l'image dans le UserForm il suffit d'appuyer sur le bouton CHARGER L'IMAGE.

Ou alors je n'ai rien compris à votre problème ???

Cordialement.

PMO
Patrick Morange

 

Vote positif 0 Vote négatif

YANN-56

XLDnaute Barbatruc

• 21 Octobre 2010

• #7

Re : Importer l'image de la Feuil1 dans celle de l'USF

Oui! Patrick,

J'ai certainement mal lu votre code... Je vais le tester concrètement.

Si le "Rognage" de l'image reste en mémoire à la deuxième action
sur le bouton de chargement, tout sera gagné!!!

Je ne manquerai pas de vous en tenir informé.

Déjà un grand Merci à vous.

Cordialement.

Yann

 

Vote positif 0 Vote négatif