Try .listrows
You can find out lots of this by trying it manually.
While in design mode, click the properties button (with the combobox selected).
You'll see all those properties that can be changed. (Saves wear and tear on
the memory, too.)
jose luis wrote:
Hi Dave,
I used ActiveX Controls and was able to change the ComboBox, even with
the Workbook Shared!!
This is what i used:
Code:
--------------------
Instead of:
Sheets("Impresión").Shapes("AlterUno").DrawingObje ct.ListFillRange = "$P$2" 'Letrero Cotizacion Actual
I used one of these:
Sheets("Impresión").Shapes("Alter1").OLEFormat.Obj ect.ListFillRange = "$P$2"
Sheets("Impresión").Alter1.ListFillRange = "$P$2"
Instead of:
Sheets("Impresión").Shapes("AlterUno").DrawingObje ct.LinkedCell = "$L$40"
I used one of these:
Sheets("Impresión").Shapes("Alter1").OLEFormat.Obj ect.LinkedCell = "$L$40"
Sheets("Impresión").Alter1.LinkedCell = "$L$40"
--------------------
Now what i 'm trying to acomplish is the equivalent in ActiveX Control
of
Sheets("Impresión").Shapes("AlterUno").DrawingObje ct.DropDownLines = 1
Do you know how to do this?
Thanks again
Regards
Jose Luis
Dave Peterson Wrote:
Do these settings change?
If no, how about just setting them once manually (when the workbook
isn't
shared), then share the workbook.
(If the settings change, then this won't work...)
jose luis wrote:
Hi Dave,
Yes, I can do this when the macro isn't shared. It works pretty
well.
My problem araises when i try to share the workbook. I 'm looking for
a
way around the dropdown from forms. I going to try with active
controls.
I 'll let you know.
Thanks again for your help.
Jose Luis
Dave Peterson Wrote:
I used a dropdown from the forms toolbar and got that error.
And excel's help does say that one of the features that is
disabled
is:
Insert or change pictures or other objects
======
Can you do this (even manually) when the workbook isn't shared?
Then
save the
workbook that way?
jose luis wrote:
Hi all,
I have this code running in a ExclusivAccess WorkBook, but when
I
try
to run it in a Share Workbook, pop ups a error sign saying "Can
assign
ListFillRange". I searched in the "Features that are unavailable
in
shared workbooks" but didn;t find any clue not allowing to use
the
code.
Code:
--------------------
Sheets("Impresión").Shapes("AlterUno").DrawingObje ct.ListFillRange
=
"$P$2" 'Letrero Cotizacion Actual
Sheets("Impresión").Shapes("AlterUno").DrawingObje ct.LinkedCell
=
"$L$40"
Sheets("Impresión").Shapes("AlterUno").DrawingObje ct.DropDownLines
= 1
Sheets("Impresión").Shapes("AlterUno").DrawingObje ct.ListIndex
= 1
Sheets("Impresión").Shapes("AlterUno").DrawingObje ct.Display3DShading
=
True
--------------------
Could you give a hand with this?
Should I use Active Controls instead? or is something else?
Thanks in advance
Jose Luis
--
jose luis
------------------------------------------------------------------------
jose luis's Profile:
http://www.excelforum.com/member.php...o&userid=13312
View this thread:
http://www.excelforum.com/showthread...hreadid=384424
--
Dave Peterson
--
jose luis
------------------------------------------------------------------------
jose luis's Profile:
http://www.excelforum.com/member.php...o&userid=13312
View this thread:
http://www.excelforum.com/showthread...hreadid=384424
--
Dave Peterson
--
jose luis
------------------------------------------------------------------------
jose luis's Profile: http://www.excelforum.com/member.php...o&userid=13312
View this thread: http://www.excelforum.com/showthread...hreadid=384424
--
Dave Peterson