excel - VBA method 'range of object' _Worksheet failed Shapes.Range(Array -


i trying move shapes on 2nd sheet based on values of 1st sheet. keep getting error line....shapes.range(array(.... below code.

sub graphics_mover() ' graphics_mover macro  dim swl_row double, pwl_row double dim rng variant, integer, colnum integer, data worksheet, pict worksheet set data = thisworkbook.worksheets(1) 'set pict = thisworkbook.worksheets(2) set pict = workbooks("well pictographs2.xlsm").worksheets(2) = 1 = 1 27     swl_row = data.cells(2, + 1).value     swl_row = int(swl_row / 50 + 1)     pict.shapes.range(array("isosceles triangle " & i)).select     selection.top = swl_row * 15 + 4      pwl_row = data.cells(3, + 1).value     pwl_row = int(pwl_row / 50 + 1)     pict.shapes.range(array("freeform " & i)).select     selection.top = pwl_row * 15 + 1     = + 1 next     '-------------------------- end sub

the line causing error is: 

    pict.shapes.range(array("freeform " & i)).select

i appreciate solutions.

i'm curious value of i when crash. code largely same recorded macro syntax correct if named shape(s) exist.

first run small snippet output of shapes' names vbe's immediate window (ctrl+g).

sub list_shapes()     dim long     workbooks("well pictographs2.xlsm").worksheets(2)         = 1 .shapes.count             debug.print .shapes(i).name         next     end end sub

when in vbe, tap ctrl+g open immediate window , check output. make sure have isosceles triangle 1 through isosceles triangle 27 (inclusive).

next run through modification of macro.

sub graphics_mover()     dim swl_row double, pwl_row double     dim rng variant, integer, colnum integer, data worksheet, pict worksheet      on error resume next     set data = thisworkbook.worksheets(1)      workbooks("well pictographs2.xlsm").worksheets(2)         = 1 27             swl_row = data.cells(2, + 1).value             swl_row = int(swl_row / 50 + 1)             if not .shapes("isosceles triangle " & i) nothing                 .shapes("isosceles triangle " & i).top = swl_row * 15 + 4                 debug.print "moved " & .shapes("isosceles triangle " & i).name             end if              pwl_row = data.cells(3, + 1).value             pwl_row = int(pwl_row / 50 + 1)             if not .shapes("freeform " & i) nothing                 .shapes("freeform " & i).top = pwl_row * 15 + 1                 debug.print "moved " & .shapes("freeform " & i).name             end if         next     end end sub

i'm not big fan of using on error resume next dealing object avoiding detection. vbe's immediate window report shapes move.


Comments

Post a Comment

Popular posts from this blog

toolbar - How to add link to user registration inside toobar in admin joomla 3 custom component -

im trying write component admin side , need add user creation. dont want duplicate existing codes add link. know how add task not simple link toolbar. thx help. if wanting button opens new user screen can try in component: $bar = jtoolbar::getinstance('toolbar'); $bar->appendbutton('link', 'users', 'new user','index.php?option=com_users&task=user.add'); you need add view.html.php file wherever you're creating toolbar. is need?
Read more

linux - disk space limitation when creating war file -

i have 1 gb disk space limitation hosting app , have used 700mb of it. however want create war file directory big (around 600mb) using command : jar -cvf root.war folderpath that's why encounter quota limitation , can't following. i'm looking way delete folder content when it's applying archive conserve disk space take note can't install zip tool in ssh shell ~ the code works on test directories, test first anyway, deletes files. it's not efficient. assumptions: 300mb free space, in destructively compress 600mb folderpath directory. none of files big -- if file in folderpath 300mb or larger, fail. notes: if ' $out ' file exists, nothing. first find pipes file list while , if ' $out ' doesn't exist in loop, create it, don't update -- if does exist, update it. each pass adds 1 more file, deletes unless file directory. after loop finishes delete empty directories too. unset u ; in=folderpath ; out=roo...
Read more

How to provide Authorization & Authentication using Asp.net, C#? -

Image
i have asp.net application in c#. i have provide page authorization specific user/usergroup. i have created 2 tables in database: 1) pagename 2)permissions[insert, update, view, delete] but i'm unable match tables , permissions assigning... can 1 please me, how created tables in database , how coding. please me. you can below explanation. configure access specific file , folder, set forms-based authentication. request page in application redirected logon.aspx automatically. in web.config file, type or paste following code. this code grants users access default1.aspx page , subdir1 folder . <configuration> <system.web> <authentication mode="forms" > <forms loginurl="login.aspx" name=".aspnetauth" protection="none" path="/" timeout="20" > </forms> </authentication> <!-- section denies access files in...
Read more