Changing ListFill in a shared WKB

[jose luis]

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").DrawingObject.ListFillRange = "$P$2" 'Letrero Cotizacion Actual
Sheets("Impresión").Shapes("AlterUno").DrawingObject.LinkedCell = "$L$40"
Sheets("Impresión").Shapes("AlterUno").DrawingObject.DropDownLines = 1
Sheets("Impresión").Shapes("AlterUno").DrawingObject.ListIndex = 1
Sheets("Impresión").Shapes("AlterUno").DrawingObject.Display3DShading = True
--------------------


Could you give a hand with this?

Should I use Active Controls instead? or is something else?

Thanks in advance

Jose Luis

 

[Dave Peterson]

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]

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
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]

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]

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").DrawingObject.ListFillRange = "$P$2" 'Letrero Cotizacion Actual

I used one of these:
Sheets("Impresión").Shapes("Alter1").OLEFormat.Object.ListFillRange = "$P$2"
Sheets("Impresión").Alter1.ListFillRange = "$P$2"

Instead of:
Sheets("Impresión").Shapes("AlterUno").DrawingObject.LinkedCell = "$L$40"

I used one of these:
Sheets("Impresión").Shapes("Alter1").OLEFormat.Object.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").DrawingObject.DropDownLines = 1

Do you know how to do this?


Thanks again

Regards

Jose Luis

 

[Dave Peterson]

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]

Thank you Dave,, mission acomplished!!

Your guidance make the difference.!!


Hope you read from you soon.

Thanks a lot

Jose Luis

 

[Dave Peterson]

And thanks for posting back about the activex controls. (I was too lazy to
test.)