> Tous les forums > Forum Bureautique
 Intégrer 3200 images selon un format de cellule de manière automatisée
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
Marie-France04
  Posté le 16/07/2017 @ 17:41 
Aller en bas de la page 
Nouvelle astucienne

Bonjour,

Présentement, je suis en train de m'exercer sur Excel afin de pouvoir réussir un projet, mais je ne suis pas semble-t-il assez compétente encore dans le domaine pour réussir.

Afin de pouvoir cibler avec vous les problèmes que j'ai, je vais surligner les parties que je ne comprends pas et sur lesquels j'ai des soucis selon mon avis de nouvelle arrivante dans les macros.

Public Sub insere_image()

Dim ficimg As Variantficimg = Application.GetOpenFilename(".jpg,*.jpg", , "Choisissez l'image") ' choix nom du fichier

ActiveSheet.Pictures.Insert(ficimg).Select ' insertion

With

Selection.ShapeRange.LockAspectRatio = False ' proportions d'origine lorsque vous la redimensionnez.

Top = ActiveCell.Top ' haut de la cellule.

Left = ActiveCell.Left ' gauche de la cellule.

Height = ActiveCell.RowHeight ' hauteur de la cellule.Width = ActiveCell.Width ' largeur de la cellule

End With

With Selection.PrintObject = True ' l'objet est imprimé en même temps que le document.

Placement = xlMoveAndSize ' manière dont l'objet est lié aux cellulesEnd With

End Sub

Sub Test()

For Each o In Selection

o.ActivateZ = o.Offset(0, -8) & ".gif"

ActiveSheet.Pictures.Insert ("C:\chemin\" & Z)Next

End Sub

Selon moi, les parties en rouge ne conviennent pas à ce que je souhaite faire. En gros, moi, j'ai besoin d'insérer 3200 images, les mêmes dans des cases pour orienter le regard des joueurs au sujet d'une banque de données pour un jeu vidéo. Chaque image représente un monstre, et il y a 800 images environ pour chaque tableau, mais je ne réussis pas à les insérer malgré mes longs efforts non fructueux. Certes, j'ai la possibilité de les insérer une à une, mais ce serait beaucoup trop long. J'aimerais automatiser la tâche. De plus, mon but est de trouver sur Internet des outils pour comprendre les mécanismes derrière le VBA, compte tenu que j'ai plusieurs moyens en la matière... cependant, je commence ici avec une petite demande :

À quoi servent les sections en rouge ?

Merci beaucoup de m'aider.

Publicité
galopin01
 Posté le 16/07/2017 à 19:16 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Bonjour,

Excel n'est vraiment pas prévu pour ça !

Même avec un PC de gamer tu peux abandonner cette idée.

A+

ferrand
 Posté le 17/07/2017 à 00:06 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Oui ! ça va être lourd !

Cordialement.

galopin01
 Posté le 17/07/2017 à 07:54 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Un petit exemple en pièce jointe

Dézipper et tester

Nota : Il est possible que ça ne marche pas dans le dossier de dézippage, dans ce cas :

Copier le classeur et les images dans le classeur de travail et lancer la macro.

Voir aussi ta messagerie.

A+



Modifié par galopin01 le 17/07/2017 08:40
Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !

Sujets relatifs
Calculer selon le format d'une cellule
Vérifier le format de saisie dans une cellule Excel
Excel 2003 format de cellule carte bancaire
Format cellule
Excel change tout seul les formats de cellule en format personnalisé
Format de cellule
probleme format de cellule pour les nombres
fonction SI avec trois critères - cellule en format [h]mm
EXCEL : défiler l'écran de manière à garder la cellule active au centre ?
Format des images insérées dans Word
Plus de sujets relatifs à Intégrer 3200 images selon un format de cellule de manière automatisée
 > Tous les forums > Forum Bureautique