Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Rogner image sous Access

Rogner image sous Access

3 réponses
Avatar
Christophe CAMPAIN
Bonjour à tous,

Quelqu'un sait il s'il est possible de "rogner" une image sous Access de la
même manière que dans Excel ou Word ?

Peux-t-on utiliser les fonctionnalités d'Excel ou Worde pour y parvenir ?

Par avance merci,

Kristof
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Christophe CAMPAIN
Bonjour à tous,

Aprés nombre de péripéties :


Public Function RecadrageImage(MargeGauche, MargeDroite, MargeHaut, MargeBas
As Long, ImageATraiter As String)
Dim xlAppl As Excel.Application
Dim Image, gr, ExcelSheet As Object

Set xlAppl = CreateObject("Excel.Application")
'xlAppl.Visible = True
'xlAppl.WindowState = xlMaximized

Set ExcelSheet = CreateObject("Excel.Sheet")
' Rend Excel visible au travers de l'objet Application.
'ExcelSheet.Application.Visible = True
ExcelSheet.Activate
' With ActiveWindow
' .DisplayGridlines = False
' .DisplayHeadings = False
' .WindowState = xlMaximized
' End With
Set gr = ActiveSheet.ChartObjects.Add(0, 0, 1024, 768)
gr.Activate
Set Image = ActiveChart.Pictures.Insert(ImageATraiter)
With Image
.ShapeRange.LockAspectRatio = True
.ShapeRange.PictureFormat.CropLeft = Int(MargeGauche) * 0.75
.ShapeRange.PictureFormat.CropRight = Int(MargeDroite) * 0.75
.ShapeRange.PictureFormat.CropTop = Int(MargeHaut) * 0.75
.ShapeRange.PictureFormat.CropBottom = Int(MargeBas) * 0.75
.ShapeRange.Left = -4
.ShapeRange.Top = -4
gr.Width = .ShapeRange.Width - 1
gr.Height = .ShapeRange.Height
With gr.Border
.Weight = 1
.LineStyle = 0
End With
gr.Interior.ColorIndex = xlNone
End With

' Enregistre l'image dans le répertoire de destination
gr.Chart.Export CurrentProject.Path & "Image Tempo Excel .jpg"
RecadrageImage = CurrentProject.Path & "Image Tempo Excel .jpg"
' MsgBox CurrentProject.Path
Image.Delete
Set Image = Nothing
gr.Delete
Set gr = Nothing

' Ferme Excel en appliquant la méthode Quit sur l'objet Application.
ExcelSheet.Application.Quit
' Supprime la variable objet.
Set ExcelSheet = Nothing

End Function

"Christophe CAMPAIN" a écrit
dans le message de news:
Bonjour à tous,

Quelqu'un sait il s'il est possible de "rogner" une image sous Access de
la

même manière que dans Excel ou Word ?

Peux-t-on utiliser les fonctionnalités d'Excel ou Worde pour y parvenir ?

Par avance merci,

Kristof




Avatar
www.eztree-msdn.com \(Laurent Jordi\) Enlever le s à infos pour me contacter par mail
Pourquoi ne pas développer un quake-like avec access ce serait kool pendant
les traitements non ?


"Christophe CAMPAIN" a écrit
dans le message de news:
Bonjour à tous,

Aprés nombre de péripéties :


Public Function RecadrageImage(MargeGauche, MargeDroite, MargeHaut,
MargeBas

As Long, ImageATraiter As String)
Dim xlAppl As Excel.Application
Dim Image, gr, ExcelSheet As Object

Set xlAppl = CreateObject("Excel.Application")
'xlAppl.Visible = True
'xlAppl.WindowState = xlMaximized

Set ExcelSheet = CreateObject("Excel.Sheet")
' Rend Excel visible au travers de l'objet Application.
'ExcelSheet.Application.Visible = True
ExcelSheet.Activate
' With ActiveWindow
' .DisplayGridlines = False
' .DisplayHeadings = False
' .WindowState = xlMaximized
' End With
Set gr = ActiveSheet.ChartObjects.Add(0, 0, 1024, 768)
gr.Activate
Set Image = ActiveChart.Pictures.Insert(ImageATraiter)
With Image
.ShapeRange.LockAspectRatio = True
.ShapeRange.PictureFormat.CropLeft = Int(MargeGauche) * 0.75
.ShapeRange.PictureFormat.CropRight = Int(MargeDroite) * 0.75
.ShapeRange.PictureFormat.CropTop = Int(MargeHaut) * 0.75
.ShapeRange.PictureFormat.CropBottom = Int(MargeBas) * 0.75
.ShapeRange.Left = -4
.ShapeRange.Top = -4
gr.Width = .ShapeRange.Width - 1
gr.Height = .ShapeRange.Height
With gr.Border
.Weight = 1
.LineStyle = 0
End With
gr.Interior.ColorIndex = xlNone
End With

' Enregistre l'image dans le répertoire de destination
gr.Chart.Export CurrentProject.Path & "Image Tempo Excel .jpg"
RecadrageImage = CurrentProject.Path & "Image Tempo Excel .jpg"
' MsgBox CurrentProject.Path
Image.Delete
Set Image = Nothing
gr.Delete
Set gr = Nothing

' Ferme Excel en appliquant la méthode Quit sur l'objet Application.
ExcelSheet.Application.Quit
' Supprime la variable objet.
Set ExcelSheet = Nothing

End Function

"Christophe CAMPAIN" a écrit
dans le message de news:
Bonjour à tous,

Quelqu'un sait il s'il est possible de "rogner" une image sous Access de
la

même manière que dans Excel ou Word ?

Peux-t-on utiliser les fonctionnalités d'Excel ou Worde pour y parvenir
?



Par avance merci,

Kristof








Avatar
Christophe CAMPAIN
Pourquoi pas si ça répond aux problèmes que tu rencontre lorsque tu
travailles sur tes applications Access... ;-)

Pour ma part il sagit de permettre à mes utilisateurs d'incorporer des
images de sources diverses dans leur états sans avoir à utliser de
programmes additionnels de retouche d'image.
1 - On pointe le fichier
2 - On cadre éventuellement la zone de l'image qui nous interresse.
3 - C'est fini et basta ! (C'est l'appli qui se débrouille avec pour sortir
un joli état qui prend pas de place , l'envoie au format PDF ou SnapShot
dans un mail préformaté, classe et archive ces éléments de sortie là où il
faut conformément auX procédureS qualité en vigueur... et qui aprés avoir
mis en route un café, te permettra de jouer à un Quake Like grace au temps
gagné...;-))

@+
Kristof


"www.eztree-msdn.com (Laurent Jordi) Enlever le s à infos pour me contacter
par mail" a écrit dans le message de
news:
Pourquoi ne pas développer un quake-like avec access ce serait kool
pendant

les traitements non ?


"Christophe CAMPAIN" a écrit
dans le message de news:
Bonjour à tous,

Aprés nombre de péripéties :


Public Function RecadrageImage(MargeGauche, MargeDroite, MargeHaut,
MargeBas

As Long, ImageATraiter As String)
Dim xlAppl As Excel.Application
Dim Image, gr, ExcelSheet As Object

Set xlAppl = CreateObject("Excel.Application")
'xlAppl.Visible = True
'xlAppl.WindowState = xlMaximized

Set ExcelSheet = CreateObject("Excel.Sheet")
' Rend Excel visible au travers de l'objet Application.
'ExcelSheet.Application.Visible = True
ExcelSheet.Activate
' With ActiveWindow
' .DisplayGridlines = False
' .DisplayHeadings = False
' .WindowState = xlMaximized
' End With
Set gr = ActiveSheet.ChartObjects.Add(0, 0, 1024, 768)
gr.Activate
Set Image = ActiveChart.Pictures.Insert(ImageATraiter)
With Image
.ShapeRange.LockAspectRatio = True
.ShapeRange.PictureFormat.CropLeft = Int(MargeGauche) * 0.75
.ShapeRange.PictureFormat.CropRight = Int(MargeDroite) * 0.75
.ShapeRange.PictureFormat.CropTop = Int(MargeHaut) * 0.75
.ShapeRange.PictureFormat.CropBottom = Int(MargeBas) * 0.75
.ShapeRange.Left = -4
.ShapeRange.Top = -4
gr.Width = .ShapeRange.Width - 1
gr.Height = .ShapeRange.Height
With gr.Border
.Weight = 1
.LineStyle = 0
End With
gr.Interior.ColorIndex = xlNone
End With

' Enregistre l'image dans le répertoire de destination
gr.Chart.Export CurrentProject.Path & "Image Tempo Excel .jpg"
RecadrageImage = CurrentProject.Path & "Image Tempo Excel .jpg"
' MsgBox CurrentProject.Path
Image.Delete
Set Image = Nothing
gr.Delete
Set gr = Nothing

' Ferme Excel en appliquant la méthode Quit sur l'objet Application.
ExcelSheet.Application.Quit
' Supprime la variable objet.
Set ExcelSheet = Nothing

End Function

"Christophe CAMPAIN" a
écrit


dans le message de news:
Bonjour à tous,

Quelqu'un sait il s'il est possible de "rogner" une image sous Access
de



la
même manière que dans Excel ou Word ?

Peux-t-on utiliser les fonctionnalités d'Excel ou Worde pour y
parvenir



?

Par avance merci,

Kristof