Selection Graphique - VBA

Bonjour,

Je dois imprimer des graphiques pour envoyer a des agences, malheureusement, je dois pour l'instant bidouiller pour que mon graphique rentre sur une page A4, et de plus, je n'ai pas que le graphique mais les valeurs des cellules qui apparaissent aussi ..

J'aimerais donc ne selectionner que le graphique et l'imprimer donc en PDF.

A noter que je suis sous Excel 2007.

Merci d'avance de votre aide.

Bien cordialement

Bonsoir,

Si tu cliques sur ton graphique, puis que tu fais Ctrl + P (soit "Imprimer"), tu n'as que ton graphique en pleine page...

Bonne soirée

Bonjour,

Je pense m'être mal exprimé !

En fait, je veux pas vraiment "imprimer" un PDF mais en générer un ! Je veux juste générer le PDF avec dessus, seulement le graphique !

Des idées ?!

Bonne journée et merci d'avance !

Bonjour,

Tu pourrais peut-être envoyer un fichier?

Cdlt.

Re-,

Comme je te l'ai indiqué, mais tu imprimes avec PdfCreator....

Et tu as ton jouli Pdf

Bonne soirée

Je ne peux malheureusement pas inclure de fichier puisque c'est pour le travail ...

En fait j'ai une feuille excel de la sorte :

http://www.google.fr/imgres?imgurl=https%3A%2F%2Faz623152.vo.msecnd.net%2Flibrary%2Fimages%2Fsupport%2Fkbgraphics%2Fpublic%2Ffr%2Fpctalk%2F954219%2F00_01.png&imgrefurl=https%3A%2F%2Fsupport.microsoft.com%2Fkb%2F954219%2Ffr&h=350&w=420&tbnid=fO2fhjD1K7b5KM%3A&zoom=1&docid=37kbr-sQ1pD4lM&ei=4KRZVZvzOYKuUdTRgdAJ&tbm=isch&iact=rc&uact=3&dur=404&page=4&start=54&ndsp=19&ved=0CPABEK0DMEM

Et je voudrais selectionner le graphique uniquement, et pas les données du dessus.

Pour ce faire, j'ai le code suivant mais il imprime les données, je ne les voudrais pas :

ActiveSheet.ChartObjects("Graphique 3").Activate

With ActiveChart

.HasTitle = True

.ChartTitle.Characters.Text = "titre"

End With

With ActiveChart.Parent

.Height = 400

.Width = 600

.Top = 100

.Left = 150

End With

Dim sNomF As String

sNomF = "Chemin"

If isEmpty(ActiveSheet.UsedRange Then Exit Else

Application.ScreenUpdating = False

Sheets("TABLEAU").Range("J2").Select

ActiveSheet.ExportAsFixedFormat:=xlTypePDF, Filename:=sNomF _

, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _

:=False, OpenAfterPublish:=False

Application.ScreenUpdatinf = True

Merci de votre aide

Rechercher des sujets similaires à "selection graphique vba"