VBA Error 438, PPT slide movement using values in Excel -


with code below receiving 438 error when try move slide section has been created. last 4 lines of code. sorry if code not clear, new vba.

private sub copyandpastetoppt(counter integer) dim nextshape integer dim issuename string dim issuedesc string dim cfonumber string dim indname string dim cat1 variant      issuename = worksheets("data_sheet").cells(counter, 1)     issuedesc = worksheets("data_sheet").cells(counter, 3)     cfonumber = worksheets("data_sheet").cells(counter, 5)     indname = worksheets("data_sheet").cells(counter, 7)     cat1 = worksheets("data_sheet").cells(counter, 9)      set pp_slide = pp_file.slides(counter + 1)      pp_slide.shapes.addshape type:=msoshaperectangle, _          left:=0, top:=0, width:=276, height:=59      nextshape = pp_slide.shapes.count      pp_slide.shapes(nextshape).textframe.textrange.text = issuename     pp_slide.shapes(nextshape).textframe.textrange.font.size = 16     pp_slide.shapes(nextshape).textframe.textrange.font.color = vbblack     pp_slide.shapes(nextshape).textframe.verticalanchor = msoanchormiddle      pp_slide.shapes.addshape type:=msoshaperectangle, _          left:=276, top:=0, width:=153, height:=59      nextshape = pp_slide.shapes.count      pp_slide.shapes(nextshape).textframe.textrange.text = issuedesc     pp_slide.shapes(nextshape).textframe.textrange.font.size = 16     pp_slide.shapes(nextshape).textframe.textrange.font.color = vbwhite     pp_slide.shapes(nextshape).textframe.textrange.paragraphformat.spacebefore = 0     pp_slide.shapes(nextshape).textframe.verticalanchor = msoanchormiddle     pp_slide.shapes(nextshape).fill.backcolor.rgb = rgb(0, 0, 0)      pp_slide.shapes.addshape type:=msoshaperectangle, _         left:=199, top:=59, width:=77, height:=30      nextshape = pp_slide.shapes.count      pp_slide.shapes(nextshape).textframe.textrange.text = cfonumber     pp_slide.shapes(nextshape).textframe.textrange.font.size = 10     pp_slide.shapes(nextshape).textframe.textrange.font.bold = false     pp_slide.shapes(nextshape).textframe.textrange.font.color = vbblack     pp_slide.shapes(nextshape).textframe.textrange.paragraphformat.spacebefore = 0     pp_slide.shapes(nextshape).textframe.verticalanchor = msoanchormiddle     pp_slide.shapes(nextshape).line.visible = false      pp_slide.shapes.addshape type:=msoshaperectangle, _         left:=597, top:=507, width:=123, height:=18      nextshape = pp_slide.shapes.count      pp_slide.shapes(nextshape).textframe.textrange.text = indname     pp_slide.shapes(nextshape).textframe.textrange.font.size = 10     pp_slide.shapes(nextshape).textframe.textrange.font.italic = true     pp_slide.shapes(nextshape).textframe.textrange.font.bold = false     pp_slide.shapes(nextshape).textframe.textrange.font.color = vbblack     pp_slide.shapes(nextshape).textframe.textrange.paragraphformat.spacebefore = 0     pp_slide.shapes(nextshape).textframe.verticalanchor = msoanchormiddle     pp_slide.shapes(nextshape).line.visible = false      if cat1 = "center consoles"      pp_slide.movetosection "center consoles"      end if  end sub


Comments

Post a Comment

Popular posts from this blog

Magento/PHP - Get phones on all members in a customer group -

i working on custom magento extension. working around adminhtml part , i've created custom form there. here form code: <?php class vivasindustries_smsnotification_block_adminhtml_sms_sendmass_edit_form extends mage_adminhtml_block_widget_form { public function _preparelayout() { $extensionpath = mage::getmoduledir('js', 'vivasindustries_smsnotification'); $head = $this->getlayout()->getblock('head'); $head->addjs('jquery.js'); $head->addjs('vivas.js'); return parent::_preparelayout(); } protected function _prepareform() { $form = new varien_data_form(array( 'id' => 'edit_form', 'action' => $this->geturl('*/*/save', array('id' => $this->getrequest()->get...
Read more

php - Bypass Geo Redirect for specific directories -

i'm trying bypass redirect specific url within site. wondering if might able help. the code below code use, original urls replaces example.com i'd able access http://example.com/admin without redirect occuring. is there way this, , there way using own ip? function country_geo_redirect() { $country = getenv('http_geoip_country_code'); if ($country == "us" ) { wp_redirect("http://usa.example.com/"); exit; } else if ($country == "gb" ) { wp_redirect("http://uk.example.com/"); exit; } } add_action('init', 'country_geo_redirect'); you can bypass redirection code if server found ip address. if ip address == <my ip address> ' nothing here else country_georedirect() end if
Read more

php - .htaccess mod_rewrite for dynamic url which has domain names -

i want convert url ex:( example.com/link.php?url=facebook.com ) ( example.com/facebook.com.php ) how can using .htaccess. or there other process make job easier ? i tried adding script .htaccess file options +followsymlinks rewriteengine on rewriterule url-(.*)\.htm$ link.php?url=$1 but converting url adding "url-" ( example.com/url-facebook.com.php ) i want remove "url-" , want make ( example.com/facebook.com.php ) rewriteengine on rewritecond %{the_request} ^get.*link\.php\?url\= [nc] rewritecond %{request_uri} !/system/.* [nc] rewriterule (.*?)link\.php\?url\=/*(.*) /$1$2 [r=301,ne,l] not sure how above work edit of used use remove index.php url
Read more