[VBA-E] Inserer un fichier icone dans une forme

Version imprimable

Bonjour,

J'ai crée un bouton qui me permet d'aller chercher un fichier Pdf et de me l'afficher en t'en qu'icone
juste ici tout va bien..
mon problème c'est qu'il va mettre l'icone la ou est la selection
j'ai donc crée une forme (shape) pour un cadre cible et cela je n'y arrive pas, il me recrée un nouvel objet et pas à la bonne place...
j'aimerais cibler une forme et pas une cellule car je suis amener a rajouter(ou retirer) des lignes, colonnes du fichier...

La forme s'apelle Cert1
voici mon code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Sub ajoutPdf() ' ouvrir un fichier avec l'extention demander fichier = Application.GetOpenFilename("Fichiers PDF(*.pdf),*.pdf,Fichier .*(*.*),*.*") If fichier = False Then Exit Sub ' With ActiveSheet.Shapes("Cert1").Select <--- marche pas non plus 'Creation de l'objet ActiveSheet.OLEObjects.Add(Filename:= _ fichier, Link:=False, Displayasicon _ :=True, IconFileName:= _ "C:\Program Files\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe", _ IconIndex:=0, IconLabel:="certificat").Select ' End With <-- lié à With End Sub
C'est possible ?

bonjour,
je n'ai pas compris ce que faisait ton code ,

je te transmet ces bouts de code que tu pourras adapter

pour effacer

Code:

1
2
3
4
5
6
 
    '------------------------------------------------ efface image
    'image a le nom de l'onglet
    For Each s In ActiveSheet.Shapes
      If s.Name = ActiveSheet.Name Then s.Delete
    Next s

pour inserer

Code:

1
2
3
4
5
6
 
    '------------------------------------------------
    ImageName = ActiveSheet.Pictures.Insert("F:\Calendrier\DB\GRAPH\ImgSystem\ImageTemp.jpg").Name
    ActiveSheet.Shapes.Range(Array(ImageName)).Name = ActiveSheet.Name
    ActiveSheet.Shapes(ActiveSheet.Name).Top = [b4].Top
    ActiveSheet.Shapes(ActiveSheet.Name).Left = [b4].Left

en fait , tu insères l'icone et tu récupères le nom du contrôle image
que tu renommes et déplaces
@+JP

10/08/2017, 14h47
eviuss

Salut Mjpmjp

En faite, mon code me permet d'aller chercher un fichier format Pdf
qu'il m'insere sous forme d'icone dans mon fichier excel cela fonctionne
mais il me laisse l'icone dans la cellule selectionnée

mon probleme c'est que je ne peux pas cibler la destination par cellule car je suis amené à ajouter ou supprimer des lignes/colonnes
J'aimerai cibler un objet, une forme ou autre pour acceuillir à l'endroit ou je veux ajouter l'icone du fichier.

Je me pose la question, savoir s'il n'y a pas une autre valeur a mettre dans :
ActiveSheet.OLEObjects.Add
au lieu d'ajouter un nouvel objet, je ne peux pas lui dire de remplacer ?
une idée ?

Bonjour,

Pour modifier l'image d'un contrôle ActiveX situé sur un onglet Excel :

Code:

Set ThisWorkbook.Sheets("Feuil1").Shapes("Cert1").OLEFormat.Object.Object.Picture = LoadPicture("C:\Temp\newpicture.jpg")

Si vous ne voulez pas partir d'un fichier image mais plutôt d'une icône que vous auriez importée de puis un pdf :
Code:

1 2 3 4 5 6 7 8 9 10 11 Sub ajoutPdf() fichier = Application.GetOpenFilename("Fichiers PDF(*.pdf),*.pdf,Fichier .*(*.*),*.*") With ThisWorkbook.Sheets("Feuil1") Set Shp = .OLEObjects.Add(Filename:=fichier, Link:=False, Displayasicon:=True, _ IconFileName:="C:\Program Files\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe", _ IconIndex:=0, IconLabel:="certificat") Shp.CopyPicture xlScreen, xlBitmap Set .Shapes("Cert1").OLEFormat.Object.Object.Picture = PastePicture(xlBitmap) Shp.Delete End With End Sub
... après avoir récupéré le module modpastepicture de Stephen Bullen et l'avoir intégré à votre fichier (il est disponible ici).

10/08/2017, 15h54
eviuss

1 pièce(s) jointe(s)

Je vous envoi le fichier avec les macro ce sera surement plus parlant pour vous
il s'agit des bouton Word et Pdf sur la droite
Pièce jointe 302060 (je rajoute en lien le fichier ne marche pas..)
23/11/2017, 11h30
eviuss

un petit up :p

je me repenche sur mon problème initiale :)

donc.. j'ai crée un bouton pour aller me chercher un fichier (objet) word ou Pdf pour l'inserer sous excel sous forme d'icones
cela fonctionne parfaitement
j'aimerais que l'objet s'insere dans une forme ou autres mais je ne veux pas cibler les cellules mais une forme "cible"

dans le cas actuel de mon code, l'objet s'insere à la derniere cellule selectionner...

Merci d'avance

bonjour
pourquoi l'icone de l'object ne te plais pas?
si il te convient deplace juste l' oleobject inséré ou tu veux c'est tout
CHANGE L ADRESSE DU PDF.EXE pour l iconne on a pas le meme

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub ajoutPdf()
    fichier = Application.GetOpenFilename("Fichiers PDF(*.pdf),*.pdf,Fichier .*(*.*),*.*")
        If fichier = False Then Exit Sub 'au cas ou tu annule dans la fenetre de dialog
    With ThisWorkbook.Sheets("Feuil1")
        Set SHP = .OLEObjects.Add(Filename:=fichier, Link:=False, Displayasicon:=True, _
                                  IconFileName:="C:\Program Files (x86)\Adobe\Reader 8.0\Reader\AcroRd32.exe", _
                                  IconIndex:=0, IconLabel:="certificat")
        With SHP
            .Left = 100
            .Top = 200
        End With
    End With
End Sub

16/03/2018, 16h01
eviuss

salut patricktoulon,

Je sais pas comment d'écrire mon PB :)
le code pour insérer un fichier sous forme d’icônes fonctionne très bien avec la bonne icons pas de soucis :)
par contre j'arrive pas à le cibler pour qu'il se place à l'endroit voulu ( pas par coordonnée car je suis amener à ajouter ou enlever des colognes)

j'aimerai crée un shape, objet "invisible" pour que le fichier en forme d'objet (icone) aille dans une cible
Ex. triangle crée avec le label "Certi1"
quand j'appuie sur mon bouton pour inserer le fichier sous forme d'icone vient s'inserer dans ce triangle (ou autres) et non pas en "G8" (G8 est un exemple de cellule).

C'est possible ?
Merci d'avance
16/03/2018, 18h13
patricktoulon

re

quand tu supprime tes colonnes recale l'object pas le choix il est de la classe oleobjects elle meme fille du sheets
donc a partir du moment ou tu modifie ligne ou colonne il se deplace avec
26/06/2018, 09h46
ptitdal

Bonjour,

Je up ce topic pour un problème un peu similaire (enfin pas tout à fait)
Mon soucis est que je veux ouvrir un fichier avec une extension quelconque et le mettre sous forme d'icone mais qui correspond à l'extension du fichier en question.

Donc j'aimerais que si j'ajoute un icone d'un fichier PDF, ce soit l'icone PDF qui apparait, idem pour tous les autre type de fichiers possibles...

Est-ce qu'avec ce code c'est possible de donner un icone par défaut pour chaque type de fichier, comme le fait la commande "Application.Dialogs(xlDialogInsertObject).Show" ?

(je n'utilise pas cette commande car je ne peut pas contrôler ce que j'ajoute comme une variable.)

Merci d'avance pour votre aide :)