|
Changing ListFill in a shared WKB
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 |
Changing ListFill in a shared WKB
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 |
Changing ListFill in a shared WKB
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 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 disable is: Insert or change pictures or other objects ====== Can you do this (even manually) when the workbook isn't shared? The save the workbook that way? jose luis wrote: Hi all, I have this code running in a ExclusivAccess WorkBook, but when try to run it in a Share Workbook, pop ups a error sign saying "Ca 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.DropDownLine = 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 Peterso -- jose lui ----------------------------------------------------------------------- jose luis's Profile: http://www.excelforum.com/member.php...fo&userid=1331 View this thread: http://www.excelforum.com/showthread.php?threadid=38442 |
Changing ListFill in a shared WKB
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 |
Changing ListFill in a shared WKB
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 |
Changing ListFill in a shared WKB
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 |
Changing ListFill in a shared WKB
Thank you Dave,, mission acomplished!! Your guidance make the difference.!! Hope you read from you soon. Thanks a lot Jose Luis Dave Peterson Wrote: 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 -- 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 |
Changing ListFill in a shared WKB
And thanks for posting back about the activex controls. (I was too lazy to
test.) jose luis wrote: Thank you Dave,, mission acomplished!! Your guidance make the difference.!! Hope you read from you soon. Thanks a lot Jose Luis Dave Peterson Wrote: 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 -- 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 |
| All times are GMT +1. The time now is 04:21 AM. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com