excel vba - setting color to a comment's characters in vba -



excel vba - setting color to a comment's characters in vba -

i need re-create cell in excel 1 range range's comment, while keeping format (size, bold, color, italic...).

my piece of code works, except color, throws run-time error '1004': font size must between 1 , 409 points.

which strange, because size works, , if comment out color lines (') works.

here code:

option explicit function comment_format(byval rg_value range, byval rg_com range) comment dim long, long if rg_com.comment nil rg_com.addcomment rg_com.comment .text text:=rg_value.value2 .shape.textframe.autosize = true end = 1 len(rg_value.value2) rg_com.comment.shape.textframe.characters(i, 1).font .size = rg_value.characters(i, 1).font.size 'a = rg_value.characters(i, 1).font.color 'if > 0 .color = ' <<<<<<<<<<<<<<< line shows error !! .fontstyle = rg_value.characters(i, 1).font.fontstyle end next set comment_format = rg_com.comment end function sub test() dim com comment set com = comment_format(range("a1"), range("b1")) end sub

thanks help.

i had improve luck using colorindex rather color , coloring first:

sub main2() phone call comment_format(range("a1"), range("b1")) end sub sub comment_format(rg_value range, rg_com range) dim long rg_com .clearcomments .addcomment .comment.text text:=rg_value.text l = len(rg_value.text) = 1 l .comment.shape.textframe.characters(i, 1).font.colorindex = range("a1").characters(i, 1).font.colorindex next end = 1 l rg_com.comment.shape.textframe.characters(i, 1).font .size = rg_value.characters(i, 1).font.size .bold = rg_value.characters(i, 1).font.bold .italic = rg_value.characters(i, 1).font.italic end next end sub

which me gave:

edit#1:

there appears bug in excel 2007 / win 7 in processing of color comments

excel-vba

Comments

Post a Comment

Popular posts from this blog

model view controller - MVC Rails Planning -

model view controller - MVC Rails Planning - i'm starting rails , i'm building app stores films info, user can watch film , give grade on web application. i have coded cinema model, controller , views. now, have 2 questions: should need create model , controller grading? in case, should create or should wait , create first users model , controller? yes, on model , controller grades. that'd feasible way maintain track of who's graded what. it's create first, i'd start users, since grades depend on both films , users. ruby-on-rails model-view-controller
Read more

ruby on rails - Devise Logout Error in RoR -

ruby on rails - Devise Logout Error in RoR - while using devise in ror, encountering unusual error when trying log out url different root url. displays me : actioncontroller::invalidauthenticitytoken in devise::sessionscontroller#destroy" for illustration if rooting path after log in '/structure', , seek log out '/general' error, while logging out '/structure' fine. any help highly appreciated. ruby-on-rails ruby devise
Read more

html - Submenu setup with jquery and effect 'fold' -

html - Submenu setup with jquery and effect 'fold' - i want open submenu jquery effect fold, problem if user "hover effect" fast menu remain open, how can avoid this, jquery code is: $('ul.mainmenu li').hover( function() { $(this).children('ul').show('fold', 570); }, function() { $(this).children('ul').hide('fold', 500); } ); my jsfiddle link is: http://jsfiddle.net/9wkbf/ updated fiddle the reason behind problem is, first event $(this).children('ul').show('fold', 570); queued , until completes, sec animation not start. the next snippet can workaround $('ul.mainmenu > li').hover( function() { $(this).children('ul').show('fold', 570); }, function() { $('ul:not(.mainmenu)').hide('fold', 500); } ); *important note : work current scenario. jquery html css
Read more