Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

  1. #1
    Nouveau Candidat au Club
    Homme Profil pro
    meteo
    Inscrit en
    août 2018
    Messages
    4
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Canada

    Informations professionnelles :
    Activité : meteo

    Informations forums :
    Inscription : août 2018
    Messages : 4
    Points : 1
    Points
    1

    Par défaut Coller et une image a partir du clipboard et sa position

    Bonjour j'essaye d'apprendre le vba depuis 2-3 jour pour coder un macro. malheureusement je n'y arrive pas et j'ai aucune expérience en programmation.
    J'ai tout simplement besoin de deux macro

    Premier macro
    Copie l'image qui est dans le clipboard sur la slide selectionner a ces dimension la
    Picture position width 43.61cm
    Picture position Height 24.37cm
    Picture position Offset X -13.09cm
    Picture position Offset Y -5.1cm

    Crop position witdth : 16.8cm
    Crop position Height: 11.09cm
    Crop position Left: 4.3cm
    Crop position Top: 2.49cm

    + mettre en arrière place

    Et

    deuxieme macro macro : Copie l'image provenant d'un lien internet sur la slide selectionner aux meme dimension. mentionner plus haut

    + mettre en arrière place

    Si je trouve ces macro, je vais sauver des heures par jour au boulot.

    Merci d'avance!

  2. #2
    Nouveau Candidat au Club
    Homme Profil pro
    meteo
    Inscrit en
    août 2018
    Messages
    4
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Canada

    Informations professionnelles :
    Activité : meteo

    Informations forums :
    Inscription : août 2018
    Messages : 4
    Points : 1
    Points
    1

    Par défaut

    pour vous mettre en contexte

    Je dois creer des brief de meteo pour different client partout au canada et envoyer des document powerpoint de 10-20 slides qui contiennent différentes images/position.

    Je dois littéralement Copier/coller et mettre les même image a tous les jour pour chaque brief a la même dimension.

  3. #3
    Nouveau Candidat au Club
    Homme Profil pro
    meteo
    Inscrit en
    août 2018
    Messages
    4
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Canada

    Informations professionnelles :
    Activité : meteo

    Informations forums :
    Inscription : août 2018
    Messages : 4
    Points : 1
    Points
    1

    Par défaut

    bon jai trouver une partie

    PictureFormat.Crop.PictureHeight =
    PictureFormat.Crop.PictureWidth =
    PictureFormat.Crop.PictureOffsetX =
    PictureFormat.Crop.PictureOffsetY =
    PictureFormat.Crop.ShapeHeight =
    PictureFormat.Crop.ShapeWidth =
    PictureFormat.Crop.ShapeLeft =
    PictureFormat.Crop.ShapeTop =



    Il manque l'option coller maintenant.

  4. #4
    Nouveau Candidat au Club
    Homme Profil pro
    meteo
    Inscrit en
    août 2018
    Messages
    4
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Canada

    Informations professionnelles :
    Activité : meteo

    Informations forums :
    Inscription : août 2018
    Messages : 4
    Points : 1
    Points
    1

    Par défaut

    Bon j'ai continuer mon travail et j'utilice ce code qui resize une image deja selectionner. Mon code fonctionne tres bien.
    J'aimerais maintenant ajouter 2 chose.

    1- Copier l'image a partir du presse papier
    2- Effacer l'image qui va etre en dessous de cette nouvelle image coller (ceci va etre tout simplement une chart de la journee precedente que je dois enlever de toute facon)


    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    66
    67
    68
    69
    70
    71
    72
    73
    74
    75
    76
    Dim pp_width As Single
    Dim pp_height As Single
    Dim pp_offX As Single
    Dim pp_offY As Single
    Dim cp_width As Single
    Dim cp_height As Single
    Dim cp_left As Single
    Dim cp_top As Single
     
    '==========================================================================================
    Sub analysis()
     
     
    'La fonction positionne et crop l'image selectionnée en utilisant les paramètres suivants
     
    'Picture Position
    pp_width = 43.61    'Width (cm)
    pp_height = 24.37   'Height (cm)
    pp_offX = -13.09    'Offset X (cm)
    pp_offY = -5.1      'Offset Y (cm)
     
    'Crop position
    cp_width = 16.8     'Width (cm)
    cp_height = 11.09   'Height (cm)
    cp_left = 4.3       'Left (cm)
    cp_top = 2.49       'Top (cm)
     
    With ActiveWindow.Selection.ShapeRange(1).PictureFormat.Crop
    .PictureWidth = CmToPt(pp_width)
    .PictureHeight = CmToPt(pp_height)
    .ShapeWidth = CmToPt(cp_width)
    .ShapeHeight = CmToPt(cp_height)
    .ShapeLeft = CmToPt(cp_left)
    .ShapeTop = CmToPt(cp_top)
    'le Offset X et Y se font en dernier
    .PictureOffsetX = CmToPt(pp_offX)
    .PictureOffsetY = CmToPt(pp_offY)
    End With
     
    End Sub
    '==========================================================================================
     
    '==========================================================================================
    Sub gfa1()
    'La fonction positionne et crop l'image selectionnée en utilisant les paramètres suivants
     
    'Picture Position
    pp_width = 18.26    'Width (cm)
    pp_height = 11.26   'Height (cm)
    pp_offX = 0   'Offset X (cm)
    pp_offY = 0      'Offset Y (cm)
     
    'Crop position
    cp_width = 18.26     'Width (cm)
    cp_height = 11.26   'Height (cm)
    cp_left = 3.66      'Left (cm)
    cp_top = 2.22      'Top (cm)
     
    With ActiveWindow.Selection.ShapeRange(1).PictureFormat.Crop
    .PictureWidth = CmToPt(pp_width)
    .PictureHeight = CmToPt(pp_height)
    .ShapeWidth = CmToPt(cp_width)
    .ShapeHeight = CmToPt(cp_height)
    .ShapeLeft = CmToPt(cp_left)
    .ShapeTop = CmToPt(cp_top)
    'le Offset X et Y se font en dernier
    .PictureOffsetX = CmToPt(pp_offX)
    .PictureOffsetY = CmToPt(pp_offY)
    End With
     
    End Sub
    '==========================================================================================
    'Funjction Cemtimetre to Points
    Function CmToPt(pt As Single) As Single
    CmToPt = pt * 28.35
    End Function

Discussions similaires

  1. Récupérer une image JPEG à partir d'une vidéo
    Par kurul1 dans le forum C++Builder
    Réponses: 8
    Dernier message: 09/08/2006, 10h51
  2. Poids d'une image a partir d'une url
    Par matique dans le forum Syntaxe
    Réponses: 4
    Dernier message: 11/02/2006, 20h41
  3. [Conception] Construire une image à partir d'un tableau
    Par jacques_henry dans le forum Général Java
    Réponses: 3
    Dernier message: 07/02/2006, 14h53
  4. Réponses: 2
    Dernier message: 06/02/2006, 09h12
  5. Réponses: 1
    Dernier message: 01/07/2005, 21h48

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo