Insert picture into Excel and keep aspect ratio without exceeding dimensions with VBA -


i exporting data access database excel report, , part of needs included in report pictures corresponding data. pictures stored in shared file , inserted excel file so:

dim p object dim xlapp excel.application dim wb workbook  set xlapp = new excel.application  xlapp      .visible = false      .displayalerts = false end  set wb = xlapp.workbooks.open(filepath, , true)  set p = xlapp.sheets(1).pictures.insert(picpath) 'insert picture p      .shaperange           .lockaspectratio = msofalse           .width = 375           .height = 260      end      .left = xlapp.sheets(1).cells(y, x).left      .top = xlapp.sheets(1).cells(y, x).top      .placement = 1      .printobject = true end  wb.saveas filename:= newname, createbackup:=false  wb.close savechanges:=true  xlapp.displayalerts = true xlapp.application.quit

the issue having can't seem able keep aspect ratio of pictures , make sure @ same time don't exceed bounds of space supposed fit in excel form. pictures screenshots there large amount of variability in shape , size.

basically want effect of grabbing corner of picture , expanding until touches either left or bottom edge of range supposed placed in.

this maximize size of image space without distorting it.

basically want effect of grabbing corner of picture , expanding until touches either left or bottom edge of range supposed placed in.

then must first find size of range (width , height) , find of picture's width , height, expanded, touches these boundaries first, set lockaspectratio = true , either set width, or height or set both stretched according aspect ratio.

the following scales picture available space (adapted code):

sub pictest()      dim p object     dim wb workbook     dim l, r, t, b     dim w, h        ' width , height of range fit picture     dim aspect      ' aspect ratio of inserted picture      l = 2: r = 4    ' co-ordinates of top-left cell     t = 2: b = 8    ' co-ordinates of bottom-right cell      set wb = activeworkbook      set p = activeworkbook.sheets(1).pictures.insert(picpath) 'insert picture     p          .shaperange               .lockaspectratio = msotrue    ' lock aspect ratio (do not distort picture)               aspect = .width / .height     ' calculate aspect ratio of picture               .left = cells(t, l).left      ' left placement of picture               .top = cells(t, l).top        ' top left placement of picture          end          w = cells(b, r).left + cells(b, r).width - cells(t, l).left    ' width of cell range          h = cells(b, r).top + cells(b, r).height - cells(t, l).top     ' height of cell range          if (w / h < aspect)             .shaperange.width = w           ' scale picture available width          else             .shaperange.height = h          ' scale picture available height          end if          .placement = 1     end  end sub

Comments

Post a Comment

Popular posts from this blog

powershell Start-Process exit code -1073741502 when used with Credential from a windows service environment -

i'm running strange behavior powershell start-process call. here call: $process = start-process ` "c:\somepath\mybinary.exe" ` -passthru ` -credential $defaultcredential ` -wait ` -workingdirectory "c:\somepath" ` -loaduserprofile if ($process.exitcode -ne 0) { #do } this call return exit code - 1073741502 . after quick search, exit code seems related generic error when program not load required dll (aka. status_dll_init_failed ). when run without -credential $credential program runs correctly. in order isolate problem, manually launched some.exe in prompt target credential , runs smoothly. so problem seems come way start-process cmdlet launch process. i found potential solutions problem tried apply no luck : link , link . would have idea of what's going on here ? edit 1: run proc mon monitoring program activities when launched directly or via powershell script. problem seems occur when loading kernelbase
Read more

twig - Using Twigbridge in a Laravel 5.1 Package -

i'm trying create laravel 5.1 package uses twigbridge instead of .php views. can normal .php views display fine, when try make use of .twig templates i'm met error. possible use twigbridge templates when creating views laravel package or pretty stuck blade , php ? edit 1: loading twig template without extending works. it's when start using {% extends 'file' %} error comes out. i error error loading /virtual/laravel/packages/username/mypackage/src/views/sample.twig: template "templates.master" not defined () in "/virtual/laravel/packages/username/mypackage/src/views/sample.twig" @ line 1. my folders username |_ mypackage |_ src |_ controllers - samplecontroller.php |_ views |_ templates - master.twig - sample.twig twig template sample.twig {% extends 'templates.master' %} {% block content %} {{ parent()
Read more

c# - LINQ join Entities from HashSet's, Join vs Dictionary vs HashSet performance -

i have hashset's each stores t, have written test application compares different relation algorithms can think of, i'm not pleased results getting. does there exist more efficient ways of achieving object relations, once testing? using system; using system.collections.generic; using system.linq; using system.text; using system.threading.tasks; using system.diagnostics; namespace linqtests { class program { static void main(string[] args) { hashset<user> usertable = new hashset<user>(); hashset<userproperty> userpropertytable = new hashset<userproperty>(); #region lets create dummy data. console.writeline("please wait while creating dummy data, can take while..."); console.writeline(""); int rows = 1000000; for(int x = 0; x < rows; x++) { random rnd = new random(); // ad
Read more