Basic Drawing in VBA
Posted: 2012-08-28T09:11:24-07:00
Hi all,
I am trying to create a basic shape eg a circle, and then add this to an image. (a place for me to add text like "15% off!")
I see example lilke this all tehtime - but i have no idea how to execute this.
convert -size 70x70 canvas:none -fill red -draw 'circle 35,35 10,30' red-circle.png
-draw 'circle 50,30 50,55' circle_circle.gif
i can resize images using this.
But i can;t seem to get this command translation to work... i have tried many
convert -size 70x70 canvas:none -fill red -draw 'circle 35,35 10,30' red-circle.png
-draw 'circle 50,30 50,55' circle_circle.gif
Can any one show me the correct way to do this? i have tried many combinations...
I am trying to create a basic shape eg a circle, and then add this to an image. (a place for me to add text like "15% off!")
I see example lilke this all tehtime - but i have no idea how to execute this.
convert -size 70x70 canvas:none -fill red -draw 'circle 35,35 10,30' red-circle.png
-draw 'circle 50,30 50,55' circle_circle.gif
i can resize images using this.
Code: Select all
Sub resize()
Set I = CreateObject("ImageMagickObject.MagickImage.1")
Open "C:\GT\1.jpg" For Binary Access Read Lock Write As #1
Text1 = I.Convert("convert logo:", "C:\GT\1.jpg", "-resize", "25x25!", "C:\GT\2.jpg")
Close #1
End Subconvert -size 70x70 canvas:none -fill red -draw 'circle 35,35 10,30' red-circle.png
-draw 'circle 50,30 50,55' circle_circle.gif
Code: Select all
Sub create_Circle()
Set I = CreateObject("ImageMagickObject.MagickImage.1")
Open "C:\GT\circle.gif" For Binary Access Read Lock Write As #1
Text1 = I.Convert("convert:", "-size", "70x70", "canvas:none", "-fill", _
"Red", "-Draw", "'circle", "50,30", "55,55'", "C:\GT\circle.gif")
Close #1
End SubCan any one show me the correct way to do this? i have tried many combinations...