Yeah, I keep forgetting about those. 

I did some more Google searching and
stumbled across the MSDN page for  this class (which I probably should
have looked there in the first place. Silly me), and it turns out that what 
I'm getting is, in fact, *not* the correct behavior. So, I'm wondering if maybe 
a bug report is in order here? I've had too many other fires to put out that I 
haven't had time to dig around even more to see if this is in fact a bug 
with Office VB on the Mac or something with RB.

I was able to find a workaround via Applescript, but that's making things
a bit more complicated than I want them to be and already are, but hey, it 
works!

Thanks for the tip!
Cheers

>Merrie wrote:Idon't have an answer to your problem but you could try
>thesenewsgroups:  
>  
>microsoft.public.mac.office.excel  
>microsoft.public.excel.programming  
>microsoft.public.excel.macintosh  
>microsoft.public.excel.worksheet.functions  
>microsoft.public.excel.worksheetfunctions  
>  
>The three mail lists without mac in them are cross-platform.  
>  
>They available via the MacTopia (or Microsoft) website in a browser
>butit takes ages to update. If you want a quicker response subscribe
>tothe newsgroups. I do this using Entourage  
>  
>HTH  
  
>>  Sorry, but this is a VBA question, but sinceI using VBA via RB2k5r4
>>and I don't know any VB programmers, I'm cominghere...    
>>    
>>My environment: RB2k5, Office 2004, Mac OS 10.3.9    
>>    
>>I'm writing a method that will go through each of the characters in
>>anExcel cell and grab various bits of styling information for
>>formattinglater in PowerPoint. Where I'm having the problem is in
>>getting toindividual characters in a cell. Here's a shortened version of
>>thecode:    
>>    
>>[code]    
>>for i = 2 to (ImageCount + 1) //this goes down the column of captions   
>>
>>    theRange = "G" + str(i)    
>>    mStyleObj = new StyleObj    
>>    for n = 1 to len(ws.Range(theRange).Value)    
>>        mStyleObj.Glyph.Append ws.Range(theRange).Characters(n,
>>1).Text//the problem lies here    
>>    next    
>>next    
>>[/code]    
>>    
>>Full text in the cell: "Cells of Bacillus anthracis" with
>>"Bacillusanthracis" in italics    
>>    
>>What happens is the Characters(start_param, length_param) propertyisn't
>>giving me the expected value. When I use (n, 1) for thelength_param I
>>get the following:    
>>    
>>(0)C    
>>(1)    
>>(2)lls of Bacillus anthracis    
>>(3)ls of Bacillus anthracis    
>>(4)s of Bacillus anthracis    
>>(5) of Bacillus anthracis    
>>    
>>So, just for kicks I tried the following...    
>>Using (n, -1) for Param_Length gives me this:    
>>(0) Cells of Bacillus anthracis    
>>(1)ells of Bacillus anthracis    
>>(2)lls of Bacillus anthracis    
>>(3)ls of Bacillus anthracis    
>>(4)s of Bacillus anthracis    
>>(5) of Bacillus anthracis    
>>    
>>Using (n, 0) gives me this:    
>>(0)    
>>(1)ells of Bacillus anthracis    
>>(2)lls of Bacillus anthracis    
>>(3)ls of Bacillus anthracis    
>>(4)s of Bacillus anthracis    
>>(5) of Bacillus anthracis    
>>    
>>Finally, using just (n) for Param_Length gives me this:    
>>(0)Cells of Bacillus anthracis    
>>(1)ells of Bacillus anthracis    
>>(2)lls of Bacillus anthracis    
>>(3)ls of Bacillus anthracis    
>>(4)s of Bacillus anthracis    
>>(5) of Bacillus anthracis    
>>    
>>Now, I can use RB's own Left command to give me just the one characterI
>>want, but that still doesn't give me access to the other informationI'm
>>looking for like the font, styling, etc. Because the entireremainder of
>>the cell contents is being returned, the styling justcomes up as the
>>default font of the cell. I have considered makinganother OLEObject that
>>would grab the character object, but it seemsthat it should be simpler
>>than that based on my past experience withPowerPoint and working with
>>text.    
>>    
>>So, am I missing in VB/VBA or Excel, or did I find a bug of some sort?  
>> 
>>    
>>TIA!    
>>--    
>>Philip Regan    
>>[EMAIL PROTECTED]
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>

Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>

Reply via email to