Use of imagemagickobject in vba

345 mots 2 pages
Use of ImageMagickObject in VBA
Option Explicit
'Dim img As New ImageMagickObject.MagickImage

Sub test() Dim SourceFile As String Dim DestFile As String Dim DestFile2 As String Dim msg 'Dim img As ImageMagickObject.MagickImage ' Gives error Dim img As Object

Set img = CreateObject("ImageMagickObject.MagickImage.1") Debug.Print typename(img)

SourceFile = "C:\Program Files\ImageMagick-6.6.4-Q16\ImageMagickObject\Tests\bill_meets_gorilla_screen.jpg" DestFile = "C:\Program Files\ImageMagick-6.6.4-Q16\ImageMagickObject\Tests\bill_meets_gorilla_mogged.jpg" DestFile2 = "C:\Program Files\ImageMagick-6.6.4-Q16\ImageMagickObject\Tests\bill_meets_gorilla_mogged2.jpg"

msg = img.Convert(SourceFile, DestFile) Debug.Print msg msg = img.Mogrify("-resize", "800x600", DestFile) Debug.Print msg msg = img.Convert(DestFile, DestFile2) Debug.Print msg
End Sub

Sub ScreenCap() 'WORKS Dim DestFile As String Dim imObject As Object

DestFile = "C:\Program Files\ImageMagick-6.6.4-Q16\ImageMagickObject\Tests\capscreen.jpg"

'Create ImageMagick Object Set imObject = CreateObject("ImageMagickObject.MagickImage.1") 'Copy selected area to clipboard as picture Selection.CopyPicture Appearance:=xlScreen, Format:=xlBitmap 'Save clipboard to image named c:\image.jpg imObject.Convert "clipboard:myimage", "", "-quality", "85", DestFile

End Sub

Sub ScreenCap2() 'WORKS - As above but inverts image first Dim DestFile As String

Dim imObject As Object

DestFile = "C:\Program Files\ImageMagick-6.6.4-Q16\ImageMagickObject\Tests\capscreen2.jpg"

'Create ImageMagick Object Set imObject = CreateObject("ImageMagickObject.MagickImage.1") 'Copy selected area to clipboard as picture Selection.CopyPicture Appearance:=xlScreen, Format:=xlBitmap 'Save clipboard to image named c:\image.jpg imObject.Convert "clipboard:myimage", "", "-negate", "-quality",

en relation

  • Eco gestion tise
    2436 mots | 10 pages
  • Analyse phot du D Day
    545 mots | 3 pages
  • Questionnaire parrot
    4726 mots | 19 pages
  • Travail de fin d'etude chatbot
    12265 mots | 50 pages
  • inf1250 -tp2
    1393 mots | 6 pages
  • Cours TSAI3
    1633 mots | 7 pages
  • Pierre le grand
    2961 mots | 12 pages
  • Ejb-enchainement d'un projet de j2ee
    1023 mots | 5 pages
  • Consignes photoshop
    580 mots | 3 pages
  • Flyff
    6971 mots | 28 pages
  • liberte
    137414 mots | 550 pages
  • Analyse du poème "les Djinns" de Victor Hugo
    476 mots | 2 pages
  • Programme info
    397 mots | 2 pages
  • histoire de l'art
    5480 mots | 22 pages
  • Librairie effets javascript
    469 mots | 2 pages