Possible to make transparent .bmp icons transparent with an Access 2010 ribbon?

Hi,

The icon pack I purchased comes with .bmp files that are coded in RGB
with magenta areas to define transparency. But they are showing up in
the ribbon as magenta borders, etc... Other formats are .ico and .png
which are not accepted in the ribbon (they are RGB with alpha
transparancy).

I tried converting the .bmp files to .jpgs but they show up with a
gray background (better than pink!).

Any ideas if this is possilbe?

I puchased them from Axialis.

Thanks,

-paulw

On Thu, 02 Feb 2012 22:33:50 -0700, PW
<emailaddyinsig@ifIremember.com> wrote:

>Hi,
>
>The icon pack I purchased comes with .bmp files that are coded in RGB
>with magenta areas to define transparency. But they are showing up in
>the ribbon as magenta borders, etc... Other formats are .ico and .png
>which are not accepted in the ribbon (they are RGB with alpha
>transparancy).
>
>I tried converting the .bmp files to .jpgs but they show up with a
>gray background (better than pink!).
>
>Any ideas if this is possilbe?
>
>I puchased them from Axialis.
>
>Thanks,
>
>-paulw


I just used Fireworks to convert a .png with alpha channel into a .bmp
and it looks okay. Going to be a tedius process but oh well.

On 03/02/2012 19:01:03, PW wrote:
> On Thu, 02 Feb 2012 22:33:50 -0700, PW
> <emailaddyinsig@ifIremember.com> wrote:
>
>>Hi,
>>
>>The icon pack I purchased comes with .bmp files that are coded in RGB
>>with magenta areas to define transparency. But they are showing up in
>>the ribbon as magenta borders, etc... Other formats are .ico and .png
>>which are not accepted in the ribbon (they are RGB with alpha
>>transparancy).
>>
>>I tried converting the .bmp files to .jpgs but they show up with a
>>gray background (better than pink!).
>>
>>Any ideas if this is possilbe?
>>
>>I puchased them from Axialis.
>>
>>Thanks,
>>
>>-paulw
>
>
> I just used Fireworks to convert a .png with alpha channel into a .bmp
> and it looks okay. Going to be a tedius process but oh well.
>

I've used ImageMagic to create transparent images to go on a form....
probably equally tedious, but I programmed something to draw basic boat and
camoe shapes.

Phil

On Fri, 3 Feb 2012 23:44:55 GMT, "Phil" <phil@stantonfamily.co.uk>
wrote:

>On 03/02/2012 19:01:03, PW wrote:
>> On Thu, 02 Feb 2012 22:33:50 -0700, PW
>> <emailaddyinsig@ifIremember.com> wrote:
>>
>>>Hi,
>>>
>>>The icon pack I purchased comes with .bmp files that are coded in RGB
>>>with magenta areas to define transparency. But they are showing up in
>>>the ribbon as magenta borders, etc... Other formats are .ico and .png
>>>which are not accepted in the ribbon (they are RGB with alpha
>>>transparancy).
>>>
>>>I tried converting the .bmp files to .jpgs but they show up with a
>>>gray background (better than pink!).
>>>
>>>Any ideas if this is possilbe?
>>>
>>>I puchased them from Axialis.
>>>
>>>Thanks,
>>>
>>>-paulw
>>
>>
>> I just used Fireworks to convert a .png with alpha channel into a .bmp
>> and it looks okay. Going to be a tedius process but oh well.
>>
>
>I've used ImageMagic to create transparent images to go on a form....
>probably equally tedious, but I programmed something to draw basic boat and
>camoe shapes.
>
>Phil


This one?: http://www.imagemagick.org/script/index.php

-paul

On Fri, 3 Feb 2012 23:44:55 GMT, "Phil" <phil@stantonfamily.co.uk>
wrote:

>On 03/02/2012 19:01:03, PW wrote:
>> On Thu, 02 Feb 2012 22:33:50 -0700, PW
>> <emailaddyinsig@ifIremember.com> wrote:
>>
>>>Hi,
>>>
>>>The icon pack I purchased comes with .bmp files that are coded in RGB
>>>with magenta areas to define transparency. But they are showing up in
>>>the ribbon as magenta borders, etc... Other formats are .ico and .png
>>>which are not accepted in the ribbon (they are RGB with alpha
>>>transparancy).
>>>
>>>I tried converting the .bmp files to .jpgs but they show up with a
>>>gray background (better than pink!).
>>>
>>>Any ideas if this is possilbe?
>>>
>>>I puchased them from Axialis.
>>>
>>>Thanks,
>>>
>>>-paulw
>>
>>
>> I just used Fireworks to convert a .png with alpha channel into a .bmp
>> and it looks okay. Going to be a tedius process but oh well.
>>
>
>I've used ImageMagic to create transparent images to go on a form....
>probably equally tedious, but I programmed something to draw basic boat and
>camoe shapes.
>
>Phil


Does it keep the transparency? I'll give it a try! Thanks.

-paulw

On Fri, 3 Feb 2012 23:44:55 GMT, "Phil" <phil@stantonfamily.co.uk>
wrote:

>On 03/02/2012 19:01:03, PW wrote:
>> On Thu, 02 Feb 2012 22:33:50 -0700, PW
>> <emailaddyinsig@ifIremember.com> wrote:
>>
>>>Hi,
>>>
>>>The icon pack I purchased comes with .bmp files that are coded in RGB
>>>with magenta areas to define transparency. But they are showing up in
>>>the ribbon as magenta borders, etc... Other formats are .ico and .png
>>>which are not accepted in the ribbon (they are RGB with alpha
>>>transparancy).
>>>
>>>I tried converting the .bmp files to .jpgs but they show up with a
>>>gray background (better than pink!).
>>>
>>>Any ideas if this is possilbe?
>>>
>>>I puchased them from Axialis.
>>>
>>>Thanks,
>>>
>>>-paulw
>>
>>
>> I just used Fireworks to convert a .png with alpha channel into a .bmp
>> and it looks okay. Going to be a tedius process but oh well.
>>
>
>I've used ImageMagic to create transparent images to go on a form....
>probably equally tedious, but I programmed something to draw basic boat and
>camoe shapes.
>
>Phil

Ick. No GUI or installer (if I have the right link:
http://imagemagick.en.softonic.com/).

On 04/02/2012 03:44:12, PW wrote:
> On Fri, 3 Feb 2012 23:44:55 GMT, "Phil" <phil@stantonfamily.co.uk>
> wrote:
>
>>On 03/02/2012 19:01:03, PW wrote:
>>> On Thu, 02 Feb 2012 22:33:50 -0700, PW
>>> <emailaddyinsig@ifIremember.com> wrote:
>>>
>>>>Hi,
>>>>
>>>>The icon pack I purchased comes with .bmp files that are coded in RGB
>>>>with magenta areas to define transparency. But they are showing up in
>>>>the ribbon as magenta borders, etc... Other formats are .ico and .png
>>>>which are not accepted in the ribbon (they are RGB with alpha
>>>>transparancy).
>>>>
>>>>I tried converting the .bmp files to .jpgs but they show up with a
>>>>gray background (better than pink!).
>>>>
>>>>Any ideas if this is possilbe?
>>>>
>>>>I puchased them from Axialis.
>>>>
>>>>Thanks,
>>>>
>>>>-paulw
>>>
>>>
>>> I just used Fireworks to convert a .png with alpha channel into a .bmp
>>> and it looks okay. Going to be a tedius process but oh well.
>>>
>>
>>I've used ImageMagic to create transparent images to go on a form....
>>probably equally tedious, but I programmed something to draw basic boat and
>>camoe shapes.
>>
>>Phil
>
> Ick. No GUI or installer (if I have the right link:
> http://imagemagick.en.softonic.com/).
>

It's a b......r to find,and I cant find the source

My version is ImageMagick-6.6.8-Q16 though your link appears to be to a later
vesion I tried ImageMagick-6.6.9-Q16 and that didn't work

I was using it to display an image of a boat, with the name of the boat and
label with the owner's name and had a lot of overlaps, hence the need for
transparent images.

Sample of code follows to create a boat

Function CreateBoatImage()

Dim IMCmd As String
Dim ImFileOut As String
Dim sGO As String
Dim ImagePath As String, StoragePath As String, PicPath As String

ImagePath = Elookup("ExcelPath", "QCoinfoPaths")
StoragePath = Elookup("StorageFolder", "QCoinfoPaths")

' First 2 numbers are X & Y centres
' Second 2 numbers are width and length
' Third 2 numbers are how far round in degrees.
IMCmd = ImagePath
IMCmd MCmd = IMCmd & "convert -size 200x200 xc:none -stroke black
-strokewidth 1 -fill transparent " IMCmd = IMCmd & " -draw " & Chr$(34) &
"ellipse 80,30 40,20 20,90" & Chr$(34) & " " IMCmd = IMCmd & " -draw " &
Chr$(34) & "ellipse 80,43 40,-20 20,90" & Chr$(34) & " " IMCmd = IMCmd & "
-draw " & Chr$(34) & "line 30,26 80,23" & Chr$(34) & " " IMCmd = IMCmd & "
-draw " & Chr$(34) & "line 30,47 80,50" & Chr$(34) & " " IMCmd = IMCmd & "
-draw " & Chr$(34) & "line 30,26 30,47" & Chr$(34) & " " IMCmd = IMCmd & "
-rotate -90 " IMCmd = IMCmd & "-background transparent -trim +repage "

ChDir hDir (StoragePath) ' Imagemagick does not understand paths

ImFileOut = "MasterBoat.Png"
If Dir(ImFileOut) > "" Then
Kill ImFileOut
End If

sGO = IMCmd & ImFileOut
If ShellWait(sGO, vbHide) = 1 Then
PicPath = StoragePath & "\" & ImFileOut
Else
MsgBox "Error ???"
End If

End Function

Phil

On Sat, 4 Feb 2012 09:32:03 GMT, "Phil" <phil@stantonfamily.co.uk>
wrote:

>On 04/02/2012 03:44:12, PW wrote:
>> On Fri, 3 Feb 2012 23:44:55 GMT, "Phil" <phil@stantonfamily.co.uk>
>> wrote:
>>
>>>On 03/02/2012 19:01:03, PW wrote:
>>>> On Thu, 02 Feb 2012 22:33:50 -0700, PW
>>>> <emailaddyinsig@ifIremember.com> wrote:
>>>>
>>>>>Hi,
>>>>>
>>>>>The icon pack I purchased comes with .bmp files that are coded in RGB
>>>>>with magenta areas to define transparency. But they are showing up in
>>>>>the ribbon as magenta borders, etc... Other formats are .ico and .png
>>>>>which are not accepted in the ribbon (they are RGB with alpha
>>>>>transparancy).
>>>>>
>>>>>I tried converting the .bmp files to .jpgs but they show up with a
>>>>>gray background (better than pink!).
>>>>>
>>>>>Any ideas if this is possilbe?
>>>>>
>>>>>I puchased them from Axialis.
>>>>>
>>>>>Thanks,
>>>>>
>>>>>-paulw
>>>>
>>>>
>>>> I just used Fireworks to convert a .png with alpha channel into a .bmp
>>>> and it looks okay. Going to be a tedius process but oh well.
>>>>
>>>
>>>I've used ImageMagic to create transparent images to go on a form....
>>>probably equally tedious, but I programmed something to draw basic boat and
>>>camoe shapes.
>>>
>>>Phil
>>
>> Ick. No GUI or installer (if I have the right link:
>> http://imagemagick.en.softonic.com/).
>>
>
>It's a b......r to find,and I cant find the source
>
>My version is ImageMagick-6.6.8-Q16 though your link appears to be to a later
>vesion I tried ImageMagick-6.6.9-Q16 and that didn't work
>
>I was using it to display an image of a boat, with the name of the boat and
>label with the owner's name and had a lot of overlaps, hence the need for
>transparent images.
>
>Sample of code follows to create a boat
>
>Function CreateBoatImage()
>
> Dim IMCmd As String
> Dim ImFileOut As String
> Dim sGO As String
> Dim ImagePath As String, StoragePath As String, PicPath As String
>
> ImagePath = Elookup("ExcelPath", "QCoinfoPaths")
> StoragePath = Elookup("StorageFolder", "QCoinfoPaths")
>
> ' First 2 numbers are X & Y centres
> ' Second 2 numbers are width and length
> ' Third 2 numbers are how far round in degrees.
> IMCmd = ImagePath
>IMCmd MCmd = IMCmd & "convert -size 200x200 xc:none -stroke black
>-strokewidth 1 -fill transparent " IMCmd = IMCmd & " -draw " & Chr$(34) &
>"ellipse 80,30 40,20 20,90" & Chr$(34) & " " IMCmd = IMCmd & " -draw " &
>Chr$(34) & "ellipse 80,43 40,-20 20,90" & Chr$(34) & " " IMCmd = IMCmd & "
>-draw " & Chr$(34) & "line 30,26 80,23" & Chr$(34) & " " IMCmd = IMCmd & "
>-draw " & Chr$(34) & "line 30,47 80,50" & Chr$(34) & " " IMCmd = IMCmd & "
>-draw " & Chr$(34) & "line 30,26 30,47" & Chr$(34) & " " IMCmd = IMCmd & "
>-rotate -90 " IMCmd = IMCmd & "-background transparent -trim +repage "
>
>ChDir hDir (StoragePath) ' Imagemagick does not understand paths
>
> ImFileOut = "MasterBoat.Png"
> If Dir(ImFileOut) > "" Then
> Kill ImFileOut
> End If
>
> sGO = IMCmd & ImFileOut
> If ShellWait(sGO, vbHide) = 1 Then
> PicPath = StoragePath & "\" & ImFileOut
> Else
> MsgBox "Error ???"
> End If
>
>End Function
>
>Phil


Oh boy! I never thought of using code to create images!

Check this out. I haven't tried it yet. Axialis sent me this link:
http://stackoverflow.com/questions/5...in-access-2007

A few references to David Fenton :-(

And a link to Albert's Ribbon Class where he uses a .png file. I need
to restudy it as I missed it last time around.

Thanks!

-paulw

"PW" wrote in message news:m5smi79jge8n0qs8f08sj8hdjic3koahk7@4ax.com...

>Hi,
>
>The icon pack I purchased comes with .bmp files that are coded in RGB
>with magenta areas to define transparency. But they are showing up in
>the ribbon as magenta borders, etc... Other formats are .ico and .png
>which are not accepted in the ribbon (they are RGB with alpha
>transparancy).

How are you loading the icons.

The samples here:
http://www.accessribbon.de/en/index.php?Downloads

Use a routine called loadpictureGDI in placer of loadpicture() (the one that
VBA had for ages).
Using this routine will load + respect transparency.

If you just use the very old VBA loadpicture() command then I as a rule find
the icons, bmp, png, gif all look rather poor.


--
Albert D. Kallal (Access MVP)
Edmonton, Alberta Canada
Pleasenospam_kallal@msn.com

On Sat, 4 Feb 2012 09:32:03 GMT, "Phil" <phil@stantonfamily.co.uk>
wrote:

>On 04/02/2012 03:44:12, PW wrote:
>> On Fri, 3 Feb 2012 23:44:55 GMT, "Phil" <phil@stantonfamily.co.uk>
>> wrote:
>>
>>>On 03/02/2012 19:01:03, PW wrote:
>>>> On Thu, 02 Feb 2012 22:33:50 -0700, PW
>>>> <emailaddyinsig@ifIremember.com> wrote:
>>>>
>>>>>Hi,
>>>>>
>>>>>The icon pack I purchased comes with .bmp files that are coded in RGB
>>>>>with magenta areas to define transparency. But they are showing up in
>>>>>the ribbon as magenta borders, etc... Other formats are .ico and .png
>>>>>which are not accepted in the ribbon (they are RGB with alpha
>>>>>transparancy).
>>>>>
>>>>>I tried converting the .bmp files to .jpgs but they show up with a
>>>>>gray background (better than pink!).
>>>>>
>>>>>Any ideas if this is possilbe?
>>>>>
>>>>>I puchased them from Axialis.
>>>>>
>>>>>Thanks,
>>>>>
>>>>>-paulw
>>>>
>>>>
>>>> I just used Fireworks to convert a .png with alpha channel into a .bmp
>>>> and it looks okay. Going to be a tedius process but oh well.
>>>>
>>>
>>>I've used ImageMagic to create transparent images to go on a form....
>>>probably equally tedious, but I programmed something to draw basic boat and
>>>camoe shapes.
>>>
>>>Phil
>>
>> Ick. No GUI or installer (if I have the right link:
>> http://imagemagick.en.softonic.com/).
>>

One of the main guys at Axialis just gave me a break on their
IconWorkshop program, which I just bought for $35. There is a batch
feature that will convert all files in a single folder in one single
operation. And he is going to add BMP 32bpp in future releases of
their icon packs.

-paulw

On Sun, 5 Feb 2012 21:22:39 -0700, "Albert D. Kallal"
<PleaseNOOOsPAMmkallal@msn.com> wrote:

>"PW" wrote in message news:m5smi79jge8n0qs8f08sj8hdjic3koahk7@4ax.com...
>
>>Hi,
>>
>>The icon pack I purchased comes with .bmp files that are coded in RGB
>>with magenta areas to define transparency. But they are showing up in
>>the ribbon as magenta borders, etc... Other formats are .ico and .png
>>which are not accepted in the ribbon (they are RGB with alpha
>>transparancy).
>
>How are you loading the icons.

Like this:

<!-- <button id="btnToday" size="large" label="Today"
image="table-edit.bmp" onAction="OnOpenFormNewRec" tag="frmToday"/>
-->

>
>The samples here:
>http://www.accessribbon.de/en/index.php?Downloads

More good stuff from you Albert!

>
>Use a routine called loadpictureGDI in placer of loadpicture() (the one that
>VBA had for ages).
>Using this routine will load + respect transparency.
>
>If you just use the very old VBA loadpicture() command then I as a rule find
>the icons, bmp, png, gif all look rather poor.

Good to know, but I am just using the image property. Axialis gave me
a break on the cost of their icon workshop program that will do batch
changes.

-paul

On Feb 7, 5:46*pm, PW <emailaddyin...@ifIremember.com> wrote:
> On Sun, 5 Feb 2012 21:22:39 -0700, "Albert D. Kallal"

> >How are you loading the icons.
>
> Like this:
>
> <!-- * * * * * *<button id="btnToday" size="large" label="Today"
> image="table-edit.bmp" onAction="OnOpenFormNewRec" tag="frmToday"/>
> -->

> Good to know, but I am just using the image property. *Axialis gave me
> a break on the cost of their icon workshop program that will do batch
> changes.
>
> -paul

right but show your code for the image call back - you'll see it uses
loadpicture()
Albert k

On Wed, 8 Feb 2012 02:00:17 -0800 (PST), "Albert D. Kallal"
<kallal@msn.com> wrote:

>On Feb 7, 5:46*pm, PW <emailaddyin...@ifIremember.com> wrote:
>> On Sun, 5 Feb 2012 21:22:39 -0700, "Albert D. Kallal"
>
>> >How are you loading the icons.
>>
>> Like this:
>>
>> <!-- * * * * * *<button id="btnToday" size="large" label="Today"
>> image="table-edit.bmp" onAction="OnOpenFormNewRec" tag="frmToday"/>
>> -->
>
>> Good to know, but I am just using the image property. *Axialis gave me
>> a break on the cost of their icon workshop program that will do batch
>> changes.
>>
>> -paul
>
>right but show your code for the image call back - you'll see it uses
>loadpicture()
>Albert k

Yep. Sorry about that! Where do I get loadpictureGDI from?

-paulw

On Wed, 08 Feb 2012 10:31:16 -0700, PW
<emailaddyinsig@ifIremember.com> wrote:

>On Wed, 8 Feb 2012 02:00:17 -0800 (PST), "Albert D. Kallal"
><kallal@msn.com> wrote:
>
>>On Feb 7, 5:46*pm, PW <emailaddyin...@ifIremember.com> wrote:
>>> On Sun, 5 Feb 2012 21:22:39 -0700, "Albert D. Kallal"
>>
>>> >How are you loading the icons.
>>>
>>> Like this:
>>>
>>> <!-- * * * * * *<button id="btnToday" size="large" label="Today"
>>> image="table-edit.bmp" onAction="OnOpenFormNewRec" tag="frmToday"/>
>>> -->
>>
>>> Good to know, but I am just using the image property. *Axialis gave me
>>> a break on the cost of their icon workshop program that will do batch
>>> changes.
>>>
>>> -paul
>>
>>right but show your code for the image call back - you'll see it uses
>>loadpicture()
>>Albert k
>
>Yep. Sorry about that! Where do I get loadpictureGDI from?
>
>-paulw


I found it in the sample iconinribbon.zip on the page you gave me a
link to, but I am having trouble getting it to work.

"PW" wrote in message news:btc5j79uces5aj0dub7clcr4o7rnev07hj@4ax.com...


>I found it in the sample iconinribbon.zip on the page you gave me a
>link to, but I am having trouble getting it to work.

Excellent.

My code is this:

Sub CallbackLoadImage(strImage As String, _
ByRef image)

Dim strImagePath As String
' Callback loadImage


If Left(strImage, 4) = "mso." Then
strImage = Mid(strImage, 5)
image = strImage
Else
strImagePath = CurrentProject.Path & "\ribbon\" & strImage
Set image = LoadPictureGDIP(strImagePath)
'Set image = LoadPictureGDIP(strImagePath) ' old built in
End If

End Sub

So the routines were just copy + lifted from the ribbon example. That
suggests that basGDI code module is required. Since the samples work, then
the use of that LoadPictureGDIP should also work.


--
Albert D. Kallal (Access MVP)
Edmonton, Alberta Canada
Pleasenospam_kallal@msn.com