Microsoft 365 Excel exporter en Image JPG

[juju91]

Bonjour à tous,

Désolé, j'ai encore besoin de votre d'aide.

Voila, j'ai une petit macro qui crée une image depuis une zone texte et une image qui sont dans une feuille.
Maintenant nom problème est que je souhaiterais que cette image soit exporter dans le classeur actif en portante nom de la cellule "K2" sachant que je doit pouvoir modifier plusieurs fois les données qui sont dans la cellule "K2" pour créer plusieurs images.

Cela fait un petit moment que je chercher la solution sans la trouver.

J'avais penser utiliser la fonction :
ThisWorkbook.Path & "\" & NomImage & ".jpg"
mais cela ne fonction pas.

Auriez-vous des suggestions à me faire.
par avance merci

P J

 

[kiki29]

Salut, voir ici et adapter à ton contexte.

 

[patricktoulon]

Bonjour
ma version by export graph 2007 à O365

 

[juju91]

bonjour et Merci
C'est parfait.
Je vais encore une demande , désolé.
est il possible d'augmenter les proportions de l'image?
En faite l'image actuel est trop petite quand je l'affiche sur des écrans de présentation.
Auriez vous une suggestion pour que l'image puisse faire 2331Pixels en Horizontal et 1335 pixels en vertical
j'en demande beaucoup désolé .
Encore merci de votre aide.

 

[patricktoulon]

Bonjour
c'est pas le même ratio que l'image elle va être déformée
en plus même si je le met à 2335 x1335 avec le chart on ne va pas jusque là il limite a un peu moins
donc on fait le max

Function CopyOBJECTInImageJPG(ObjecOrRange, _
                              Optional cheminx As String = "", _
                              Optional DoNotKeepFile As Boolean) As String
    Dim Graph As Object
    If cheminx = "" Then cheminx = ThisWorkbook.Path & "\imagetemp.jpg"
     With CreateObject("htmlfile").parentwindow.clipboardData.clearData("Text"): End With    'on vide le clipboard entre chaque copie pour tester vraiment le available
    ObjecOrRange.CopyPicture
    Set Graph = ObjecOrRange.Parent.ChartObjects.Add(0, 0, 2335, 1335).Chart
    ActiveSheet.Shapes(Graph.Parent.Name).Line.Visible = msoFalse
    With Graph.Parent
        .Width = 2335: .Height = 1135: .Left = ObjecOrRange.Width + 20:
        .Select
        Do: DoEvents
            .Chart.Paste
        Loop While .Chart.Pictures.Count = 0
               
        .Chart.Pictures(1).Width = .Width
        .Chart.Pictures(1).Height = .Height
                     
        '************************************************************
        .Chart.Export cheminx, "jpg"
    End With
    Graph.Parent.Delete
    CopyOBJECTInImageJPG = cheminx
    If DoNotKeepFile Then Application.OnTime Now, "supperessionF2"
End Function