Forum |  HardWare.fr | News | Articles | PC | Prix | S'identifier | S'inscrire | Aide | Shop Recherche
397 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [VBA] Adapter la taille de plusieurs images pour impression

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

[VBA] Adapter la taille de plusieurs images pour impression

n°2048714
quieto
Demon Called Deception
Posté le 13-01-2011 à 15:11:18  profilanswer
 

Bonjour,
 
J'avais comme problématique de faire une macro sous excel pour ajuster une image sur une plaque d'autocollants:
3x8 etiquettes (70mm*35mm), la plaque n'a pas de marge sur les bords gauche et droit, mais une marge de 0.85 sur le haut et le bas.
 
J'ai fait la macro pour dupliquer et positionner l'image, mais je n'arrive pas à l'adapter pour correspondre parfaitement à la plaque d'autocollants (en particulier l'absence de marge sur le coté).
Une idée ?
 
Pour info, la macro:
'Creation du canevas d'etiquettes
 
Private Sub Test1_Click()
 
 
Dim Px As Integer
Dim x As Integer
Dim Py As Integer
Dim y As Integer
Dim MonDocument As Worksheet
Dim Rosace As Shape
Dim u As Integer
Dim Chemin As String
 
Chemin = Application.GetOpenFilename
c = InputBox("Nombre de colonnes ?";)
l = InputBox("Nombre de lignes ?";)
u = c - 1
v = l - 1
 
 
Set MonDocument = ActiveSheet
 
 
Py = 105 'Pas en hauteur 'au pif
Px = 160 'Pas en largeur 'au pif
For i = 0 To v
    y = i * Py
        For j = 0 To u
            x = j * Px
            Set Rosace = MonDocument.Shapes.AddPicture(Chemin, False, True, Cx + x, Cy + y, 160, 105)  
        Next j
Next i
 
 
 
 
End Sub


Message édité par quieto le 14-01-2011 à 08:45:01
mood
Publicité
Posté le 13-01-2011 à 15:11:18  profilanswer
 


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [VBA] Adapter la taille de plusieurs images pour impression

 

Sujets relatifs
adapter un design ss photoshop à un site webXML XSL propriété text indent sur plusieurs lignes...
Importer plusieurs tableaux .xls depuis et dans une bdd ?Index sur plusieurs clefs
Récuperer plusieurs variables $_POST dans un foreachtaille tampon fonction recv socket
[VBA/EXCEL07] Copier une chaîne dans plusieurs cellulesVBA Fermer plusieurs applications EXCEL en cascade (taskkill?)
Envoi mail plusieurs destinataires (excel)Pas d'affichage d'images sur firefox mais oui sur les autres browsers
Plus de sujets relatifs à : [VBA] Adapter la taille de plusieurs images pour impression


Copyright © 1997-2018 Hardware.fr SARL (Signaler un contenu illicite) / Groupe LDLC / Shop HFR