vba - Excel Macro / Module assistance - How to write a code to autofit Cell width -

-

i got module/macro excel form site: [macro send email of excel content][1] macro works, except cells small large amount of data in each cell, how write script within code adjust width of cell accordingly data inside cell. cells vary in terms of amount of data. thanks!

sub send_row()       ' don't forget copy function rangetohtml in module.       ' working in office 2000-2010 dim outapp object dim outmail object dim cell range dim rng range dim ash worksheet  set ash = activesheet on error goto cleanup set outapp = createobject("outlook.application")  application     .enableevents = false     .screenupdating = false end  each cell in ash.columns("b").cells.specialcells(xlcelltypeconstants)     if cell.value "?*@?*.?*" , lcase(cell.offset(0, 1).value) = "yes"          ash.range("a1:ae100").autofilter field:=2, criteria1:=cell.value          ash.autofilter.range             on error resume next             set rng = .specialcells(xlcelltypevisible)             on error goto 0         end          set outmail = outapp.createitem(0)          on error resume next         outmail             .to = cell.value             .subject = "csi"             .htmlbody = rangetohtml(rng)             .display  'or use send         end         on error goto 0          set outmail = nothing         ash.autofiltermode = false     end if next cell         cleanup: set outapp = nothing application     .enableevents = true     .screenupdating = true end       end sub

i use

excel.rows.autofit

and

excel.columns.autofit

to make worksheet cells automatically adjust best height , width content.

you can call these 2 lines of code anywhere in code, before creating email.

as alternative, if wanted manually, use these shortcut keys:

alt+o+c+a - autofit columns
alt+o+r+a - autofit rows


Comments

Post a Comment

Popular posts from this blog

django - How can I change user group without delete record -

-
on website user have 1 group. , user can change group. it's made user.groups.clear() and user.groups.add(new_group) but it's not efficient, because there 2 sql query: delete, insert. how can change group update query? user , group related each other using manytomanyfield . means intersection table exists relating both entities, , if don't specify model map (using through attribute) django creates 1 you. looking @ sources django.contrib.auth.models see that's case. fortunatly, can access intermediary model using through attribute of manager (in case, user.groups.through ). can use regular model. example: >>> alice = user.objects.create_user('alice', 'alice@example.com', 'alicepw') >>> employee = group.objects.create(name='employee') >>> manager = group.objects.create(name='manager') >>> alice.groups.add(employee) >>> alice.groups.all() [<group: employee...
Read more

java - Need to add SOAP security token -

-
i need set custom soap header attribute on jax-ws generated webservice client. case webservice calls must go through proxy server requiring specific token (recieved web request header) present in soap request header. e.g.: 1 carserviceservice service = null; 2 service = new carserviceservice(new url(url), new qname(qname); 3 carserviceendpoint port = service.getcarserviceport(); it seems in line 3 wsdl retrieved , call fails due missing security token. 1 point direction on how done? a detailed example has been mentioned here: creating , deploying jax-ws web service on tomcat 6 this article shows how create , use security token .
Read more

java - EclipseLink JPA Object is not a known entity type -

-
i have strange problem eclipselink , object want persist. have 1 object (keypointlistimpl) stores object keypointimpl in list. persisting keypointimpl objects works great if try persist keypointlistimpl object java.lang.illegalargumentexception says object keypointimpl isn't known entity type. here keypointimpl code: @entity @table(name="keypoints") public class keypointimpl implements keypoint { @id @generatedvalue(strategy = generationtype.identity) private int id; @enumerated(enumtype.string) private detectortype keypointtype; private float x; private float y; private float size; private float angle; private float response; private int octave; private int classid; ... } here keypointlistimpl code: @entity @table(name="keypointlists") public class keypointlistimpl implements keypointlist { @id @generatedvalue(strategy = generationtype.identity) private int id; @onetoone(cascade={ca...
Read more