vba - Excel 2003, adding content with checkboxes -

-

i propulating range rows using vba, each row have own checkbox.

so far code looks this:

    dim objcolumnheadings range, objdbsheet worksheet     dim lngrow long, objcell range     dim objcheckbox object     set objdbsheet = getdbsheet()     set objcolumnheadings = objdbsheet.range("columnheadings")     objcolumnheadings.clearcontents     lngrow = 1     each varexisting in objcolumns         objcolumnheadings.cells(lngrow, 1).value = varexisting         set objcell = objcolumnheadings.cells(lngrow, 2)         set objcheckbox = activesheet.oleobjects.add(classtype:="forms.checkbox.1" _                             , left:=412.8 _                             , top:=objcell.top _                             , height:=10 _                             , width:=9.6)         objcheckbox.name = "cb" & lngrow         objcheckbox.appearance.caption = ""         objcheckbox.appearance.backcolor = &h808080         objcheckbox.appearance.backstyle = 0         lngrow = lngrow + 1         if lngrow > 1             exit         end if     next

setting name of checkbox works, setting other properties not , results in run-time error: '438', object doesn't support property or method.

when @ properties of newly added checkboxes name set correctly, caption, backcolor , backstyle not set.

how set these programatically?

use msforms.checkbox, , set object in it, that's easier. use following example code.

sub test()      dim objcheckbox msforms.checkbox       set objcheckbox = activesheet.oleobjects.add(classtype:="forms.checkbox.1" _                             , left:=10.8 _                             , top:=10 _                             , height:=25 _                             , width:=200).object         objcheckbox.name = "dummy_test"         objcheckbox.caption = "test"         objcheckbox.backcolor = vbred         objcheckbox.backstyle = 0  end sub

Comments

Post a Comment

Popular posts from this blog

javascript - Slick Slider width recalculation -

-
i'm trying add slide in panel on slick container css. carousel works except new width not being calculated when space has been added. recalibrate once advance next slide i'd happen each time panel opened or closed. i've tried adding both margin , padding, neither makes difference. ideas? https://jsfiddle.net/mhigley/dpf7mlpl/ html: <button type="button" id="button"><i class="fa fa-arrow-right"></i></button> <aside> <h2>slide in panel</h2> <ol> <li>list item</li> <li>list item</li> <li>list item</li> <li>list item</li> <li>list item</li> </ol> </aside> <main role="main"> <div class="sections"> <section> <article> <h2>first slide</h2> <p>lorem ipsum d...
Read more

jsf - PrimeFaces Datatable - What is f:facet actually doing? -

-
looking through primefaces code in app noticed following line: <f:facet name="header">#{trainsearch.traincount} trains</f:facet> it looks overriding header, makes sense, can explain me in little more detail? what happening line of code? complete code listed below: <p:datatable id = "results" value = "#{trainsearch.trains}" var = "train" rendered="#{not empty trainsearch.trains}" styleclass = "train-search-table horizontal-border"> <f:facet name="header">#{trainsearch.traincount} trains</f:facet> <p:column headertext = "train id"> <p:panelgrid columns="1" styleclass = "train-id-grid" layout = "grid"> <h:outputtext styleclass = "train-id-label" value="#{train.traini}"/> <h:outputtex...
Read more

angular2 services - Angular 2 RC 4 Http post not firing -

-
i trying fire post request app , it's not working, tried multiple ways. don't see request being fired under network tab in chrome. not sure problem is, appreciated. import { injectable } '@angular/core'; import { http, headers } '@angular/http'; @injectable() export class userservice{ private _url="users"; constructor(private _http: http){ } checkifusernameexists(username){ return this._http.get(this._url+"/"+username) .map(response => response.json()) } createuser(user){ let headers = new headers(); headers.append('content-type', 'application/json') console.log(json.stringify(user)); return this._http.post(this._url, json.stringify(user),{headers: headers}) .map(response => response.json()) } } first need capture error , solve error: this._http.post(this._url, json.stringify(user),{headers: headers}) .subscribe( ...
Read more