excel vba - draw more than one plot using vba -


i trying draw more 1 plot using vba in excel wrote code enable me draw 1 drawing

sub trial() activesheet.shapes.addchart2(240, xlxyscattersmoothnomarkers).select     activechart.seriescollection.newseries     activechart.haslegend = true     activechart.fullseriescollection(1).name = "=""hbes"""     activechart.fullseriescollection(1).xvalues = "=en!$g$253:$g$257"     activechart.fullseriescollection(1).values = "=en!$dp$253:$dp$257"     activechart.seriescollection.newseries     activechart.fullseriescollection(2).name = "=""nhbes"""     activechart.fullseriescollection(2).xvalues = "=en!$g$253:$g$257"     activechart.fullseriescollection(2).values = "='en1'!$do$253:$do$257"     activechart.seriescollection.newseries     activechart.fullseriescollection(3).name = "=""nhbcs"""     activechart.fullseriescollection(3).xvalues = "=en!$g$253:$g$257"     activechart.fullseriescollection(3).values = "=en1c!$do$253:$do$257"     activechart.seriescollection.newseries     activechart.fullseriescollection(4).name = "=""hbcs"""     activechart.fullseriescollection(4).xvalues = "=en!$g$253:$g$257"     activechart.fullseriescollection(4).values = "=enc!$dp$253:$dp$257"     activechart      'chart name     .hastitle = true     .charttitle.characters.text = "expected number of goods group twenty in condition state five"      'x axis name     .axes(xlcategory, xlprimary).hastitle = true     .axes(xlcategory, xlprimary).axistitle.characters.text = "time (years)"      'y-axis name     .axes(xlvalue, xlprimary).hastitle = true     .axes(xlvalue, xlprimary).axistitle.characters.text = "expected number of goods" end end sub

what need make data range variable tried adjust above code in following manner

 sub trial()     activesheet.shapes.addchart2(240, xlxyscattersmoothnomarkers).select         activechart.seriescollection.newseries         activechart.haslegend = true         activechart.fullseriescollection(1).name = "=""hbes"""         activechart.fullseriescollection(1).xvalues = "=en!$g$253:$g$257"         activechart.fullseriescollection(1).values = sheets("sheets12").range(cells(253,32),cells(302,32))         activechart.seriescollection.newseries         activechart.fullseriescollection(2).name = "=""nhbes"""         activechart.fullseriescollection(2).xvalues = "=en!$g$253:$g$257"         activechart.fullseriescollection(2).values = sheets("sheets13").range(cells(253,32),cells(302,32))         activechart.seriescollection.newseries         activechart.fullseriescollection(3).name = "=""nhbcs"""         activechart.fullseriescollection(3).xvalues = "=en!$g$253:$g$257"         activechart.fullseriescollection(3).values = sheets("sheets14").range(cells(253,32),cells(302,32))         activechart.seriescollection.newseries         activechart.fullseriescollection(4).name = "=""hbcs"""         activechart.fullseriescollection(4).xvalues = "=en!$g$253:$g$257"         activechart.fullseriescollection(4).values = sheets("sheets15").range(cells(253,32),cells(302,32))         activechart          'chart name         .hastitle = true         .charttitle.characters.text = "expected number of goods group twenty in condition state five"          'x axis name         .axes(xlcategory, xlprimary).hastitle = true         .axes(xlcategory, xlprimary).axistitle.characters.text = "time (years)"          'y-axis name         .axes(xlvalue, xlprimary).hastitle = true         .axes(xlvalue, xlprimary).axistitle.characters.text = "expected number of goods"     end     end sub

but doesn't work suggestion please?

thanks in advance

looking @ first series you're trying add. in first snippet you're trying pull data range dp253:dp257, columnindex column dp 120, not 32 cells(253, 32) refers cell af253 , cells(302, 32) refers cell af302.

for plot named "hbes"

.values = sheets("en").range(cells(253, 120), cells(257, 120))

edit

for plot named "nhbes"

.values = sheets("'en1'").range(cells(253, 119), cells(257, 119))

for plot named "nhbcs"

.values = sheets("en1c").range(cells(253, 119), cells(257, 119))

for plot named "hbcs"

.values = sheets("enc").range(cells(253, 120), cells(257, 120))

the code built follows

sheets("name of sheet appears on tab in workbook").range(cells(rownumber of top (left) cell in range, columnnumber of top (left) cell in range), cells(rownumber of bottom (right) cell in range, columnumber of bottom right cell in range))

if referring range a1:b5, you'd type range(cells(1, 1), cells(5, 2)


Comments

Post a Comment

Popular posts from this blog

get url and add instance to a model with prefilled foreign key :django admin -

Image
i have page in each contest shown in row. each row contains contest id , link other model names have foreign key contest. news model: class news(models.model): title = models.charfield(max_length=50, null=true) description = models.textfield() time = models.timefield( default= datetime.datetime.now().time()) contest = models.foreignkey(contest) i want use admin adding , changing these models. want when user clicks on 'news' has foreign key contest id=1, shows list of news value foreign key. use {% instance in instances %} <tr class="{% cycle 'row1' 'row2' %}"> <td>{{ instance.title }}</td> <td>{{ instance.starttime }}</td> <td>{{ instance.timespan }}</td> <td>{{ instance.date }}</td> <td><a href="/adm...
Read more

android - Keyboard hides my half of edit-text and button below it even in scroll view -

i having trouble keyboard covers edit-text , half of button in scroll view. here's layout , please tell me how should resolve problem. many questions on topic none of them s working me. <?xml version="1.0" encoding="utf-8"?> <linearlayout xmlns:android="http://schemas.android.com/apk/res/android" android:layout_width="match_parent" android:background="@drawable/bg" android:layout_height="match_parent"> <scrollview android:layout_width="match_parent" android:fillviewport="true" android:layout_height="match_parent"> <relativelayout android:layout_width="match_parent" android:layout_height="wrap_content" android:orientation="vertical"> <linearlayout android:layout_width="match_parent" android:layout_height="w...
Read more

css - Make div keyboard-scrollable in jQuery Mobile? -

from can tell, although jquery-mobile-powered pages can contain divs overflow set scroll or auto, , these divs can scrolled one-screen bar or mouse wheel, cannot scrolled using arrow keys, page-up/page-down, or home/end. instead, official "page" div (with data-role="page") absorbs input. perhaps other divs can't acquire focus, i'm not sure. is there way around this? edit: jsfiddle of simple example: https://jsfiddle.net/qogz0shx/ <script src="https://ajax.googleapis.com/ajax/libs/jquery/2.1.4/jquery.min.js"></script> <script src="https://ajax.googleapis.com/ajax/libs/jquerymobile/1.4.5/jquery.mobile.min.js"> </script> <link rel="stylesheet" href="https://code.jquery.com/mobile/1.4.5/jquery.mobile-1.4.5.css"/> <style> #outer { overflow:scroll; height: 50vh; width: 50vw; } #inner { height: 500vh; width: 500vw; } ...
Read more