titejj52
03-14-2011, 06:51 AM
post we talked about methods to use Excel being a flexible enhancement environment and touched regarding how to use ActiveX Controls to boost your solution and making use of tables programmatically to manipulate information. On this publish we are heading to drill into methods to add customized Ribbon UI, context menus. Menu to generate playlist creation quite a bit much easier inside Excel Media Player, I additional the subsequent customized precise click context solutions to my Tables. methods to do that open the MediaPlayer.xlsm, press Alt + F11 and double click ThisWorkbook. You certainly will see the following code with the Workbook_Open() function: Chosen Song", "AddSelected"
AddMenuItem "Add Selected Artist",microsoft office Home And Student 2010 x64 key (http://www.office2010-key.de/), "AddArtist"
AddMenuItem "Add Picked Album", "AddAlbum"
AddMenuItem "Add Present Filter", "AddFilter" item this is certainly defined under as: AddMenuItem(title As String, command As String) As CommandBarControl
Set x = Software.CommandBars("List Array Popup").Controls.Add(1, momentary:=True)
x.Caption = title
x.OnAction = command
x.Visible = Correct Vary Popup") will be the bar for appropriate click context menu for Lists/Tables. For cells, you’re able to use CommandBars("Cells") as an alternative. Bar and Software.ScreenUpdating are carrying out much of issues with the qualifications programmatically such as bringing in a very great deal of data (this sort of like a media library) or modifying a good amount of charts, or anything at all that is time intensive,buy office 2007 product key (http://www.office2010-key.de/office-2007-key), you probably want to do a mixture of three facts: standing with info Turn off screen updating DoEvents status bar is published to by setting Application.StatusBar,office pro plus (http://www.office2010-key.de/), so when you are in a very loop it can be valuable to perform one thing like Application.StatusBar = "Now Importing Merchandise " & i & " of " & MC.Count so that the end user will know approximately the time remaining for your operation. to note, when you don't set Software.StatusBar = "" the status bar will keep your last value until you exit the application (not just the workbook) or one thing else writes to the standing bar. Display updating are moving around plenty of info and the user doesn't need to see what is heading on set Software.ScreenUpdating = "False" before your code and Application.ScreenUpdating = "True" after your code completes. With this setting you are going to gain a slight performance increase and the user will not see flickering and info moving do to your code changes. on the other hand, you want to allow the user to continue to work with the app while the code is running (ie, for those who have an animated object or a long loop) then you're able to sprinkle DoEvents into your loops or methods, for Example:
Animate define Animate to modify a few objects. with custom Ribbon UI go into detail on this topic, I want to point out a great primer that Sam Radakovitz wrote a few months back on Dynamic Ribbon ##################. This is a great primer on how to customize the ribbons as are the links he provides are relevant to this publish as well: Ribbon Developer Portal
Utilities for the 2007 Microsoft Office System
we will create will live from the document and travel with it. We will have to utilize a tool to get the RibbonX within the document. The one I'll use for this example is called the "Office 2007 Custom UI Editor". It is possible to download it freely from here: " Editor is a very light weight tool for giving you a few suggestions, validating CustomUI XML and generating sample VBA callback code. When you're heading to be doing add-in advancement or extensive Ribbon UI customization, I highly recommend implementing VSTO 2008 rather of this tool. You possibly can find information here: install the CustomUIeditor, open the attached "MediaPlayer.xlsm" to see the CustomUI.xml: encoding="utf-8"?>
<customUI xmlns="" onLoad="Mediaplayer.xlsm!OnRibbonLoad">
<ribbon startFromScratch="true">
<tabs>
<tab id="settingsTab" label="Media Player">
<group idMso="GroupTheme######cel" visible="true"/>
<group id="LibrarySettings" label="Library">
<button id="GetLibrary" label="Get Library From WMP" onAction="Mediaplayer.xlsm!GetFromWMP" image="bones"/>
<button id="Monitor" label="MonitorFolders" onAction="Mediaplayer.xlsm!MonitorFolders"/>
</group>
<group id="libraryTab" label="Library/Playlists">
<button id="ShowPlaylist" label="Goto Playlists" onAction="Mediaplayer.xlsm!ShowPlaylists"/>
<button id="ShowCurPlaylist" label="Goto Now Playing" onAction="Mediaplayer.xlsm!ShowNowPlaying"/>
<button id="Lib" label="Goto Library" onAction="Mediaplayer.xlsm!GotoLibrary"/>
<button id="SufflePL" label="Shuffle Recent Playlist" onAction="Mediaplayer.xlsm!mixPlaylist"/>
</group>
<group id="qPL" label="Quick Playlists">
<button id="QuickPlaylist" label="Create Quick Playlist" onAction="Mediaplayer.xlsm!QuickPL"/>
</group>
<group id="controls" label="Controls">
<button id="Play" label="Play" onAction="Mediaplayer.xlsm!PlayR"/>
<button id="Pause" label="Pause" onAction="Mediaplayer.xlsm!PauseR"/>
<button id="Stop" label="Stop" onAction="Mediaplayer.xlsm!StopR"/>
<button id="Next" label="Next" onAction="Mediaplayer.xlsm!NextR"/>
<button id="Previous" label="Previous" onAction="Mediaplayer.xlsm!PreviousR"/>
<button id="Open" label="Open" onAction="Mediaplayer.xlsm!OpenR"/>
<button id="Shuffle" label="Shuffle" onAction="Mediaplayer.xlsm!SuffleR"/>
</group>
</tab>
</tabs>
</ribbon>
</customUI> are creating a new option, the sample tab will get you started with a few interesting cases. Look at the portal above to learn more about what you could do. The menu that this represents is: look at startFromScratch="true". If it is set to a fact, the original RibbonUI will not be accessible or visible. Contextual tabs will continue to show unless you explicitly set those tabs 'Visible=False'. Within the above image 'StartFromScratch' is correct, but I removed this from the sample so that it truly is easy to utilize the rest of Excel UI. the tabs groups, I wanted to make the Media Player follow the Themes available in Office 2007 (http://www.office2010-key.de/office-2007-key) to give it a 'skinnable' feel. To try and do this I extra a preexisting group on my customized Media Player Tab: <group idMso="GroupTheme######cel" visible="true"/> In the event you wish to repurpose, reuse, or add buttons to existing Ribbon objects, you can find information on the MSO ControlIDs here. are a few custom groups,office 2010 Home And Student x86 (http://www.office2010-key.de/), and in each of the groups you can expect to set of buttons with an OnAction property set. When you click the 'generate callbacks' button inside Custom UI Editor, you may get auto generated VBA code. All I did is add a call to Play_Click so that my ribbon functionality matches my Office Graphics button functionality. Play onAction
Sub xlsm!PlayR(control as IRibbonControl)
Play_Click
End Sub above, if you're performing lots of add-in growth and Ribbon additions,office Home And Business 2010 32bit key (http://www.office2010-key.de/), I recommend investigating Visual Studio Tools for Office. you have it, the basic concepts to creating a fully functional media library/player in Excel. As mentioned from the first post, the great thing about creating solutions in Excel may be the flexibility it provides. For instance, once you import a concert celebration RSS feed into a table, you can actually easily do a VLookup on the artist name and create playlists based on the music in the area. You are able to then link to a few social web services (Last.FM or Zune for instance) to find 'related' artists to your most listened to artists with minimal effort. With Excel, anything is possible.
AddMenuItem "Add Selected Artist",microsoft office Home And Student 2010 x64 key (http://www.office2010-key.de/), "AddArtist"
AddMenuItem "Add Picked Album", "AddAlbum"
AddMenuItem "Add Present Filter", "AddFilter" item this is certainly defined under as: AddMenuItem(title As String, command As String) As CommandBarControl
Set x = Software.CommandBars("List Array Popup").Controls.Add(1, momentary:=True)
x.Caption = title
x.OnAction = command
x.Visible = Correct Vary Popup") will be the bar for appropriate click context menu for Lists/Tables. For cells, you’re able to use CommandBars("Cells") as an alternative. Bar and Software.ScreenUpdating are carrying out much of issues with the qualifications programmatically such as bringing in a very great deal of data (this sort of like a media library) or modifying a good amount of charts, or anything at all that is time intensive,buy office 2007 product key (http://www.office2010-key.de/office-2007-key), you probably want to do a mixture of three facts: standing with info Turn off screen updating DoEvents status bar is published to by setting Application.StatusBar,office pro plus (http://www.office2010-key.de/), so when you are in a very loop it can be valuable to perform one thing like Application.StatusBar = "Now Importing Merchandise " & i & " of " & MC.Count so that the end user will know approximately the time remaining for your operation. to note, when you don't set Software.StatusBar = "" the status bar will keep your last value until you exit the application (not just the workbook) or one thing else writes to the standing bar. Display updating are moving around plenty of info and the user doesn't need to see what is heading on set Software.ScreenUpdating = "False" before your code and Application.ScreenUpdating = "True" after your code completes. With this setting you are going to gain a slight performance increase and the user will not see flickering and info moving do to your code changes. on the other hand, you want to allow the user to continue to work with the app while the code is running (ie, for those who have an animated object or a long loop) then you're able to sprinkle DoEvents into your loops or methods, for Example:
Animate define Animate to modify a few objects. with custom Ribbon UI go into detail on this topic, I want to point out a great primer that Sam Radakovitz wrote a few months back on Dynamic Ribbon ##################. This is a great primer on how to customize the ribbons as are the links he provides are relevant to this publish as well: Ribbon Developer Portal
Utilities for the 2007 Microsoft Office System
we will create will live from the document and travel with it. We will have to utilize a tool to get the RibbonX within the document. The one I'll use for this example is called the "Office 2007 Custom UI Editor". It is possible to download it freely from here: " Editor is a very light weight tool for giving you a few suggestions, validating CustomUI XML and generating sample VBA callback code. When you're heading to be doing add-in advancement or extensive Ribbon UI customization, I highly recommend implementing VSTO 2008 rather of this tool. You possibly can find information here: install the CustomUIeditor, open the attached "MediaPlayer.xlsm" to see the CustomUI.xml: encoding="utf-8"?>
<customUI xmlns="" onLoad="Mediaplayer.xlsm!OnRibbonLoad">
<ribbon startFromScratch="true">
<tabs>
<tab id="settingsTab" label="Media Player">
<group idMso="GroupTheme######cel" visible="true"/>
<group id="LibrarySettings" label="Library">
<button id="GetLibrary" label="Get Library From WMP" onAction="Mediaplayer.xlsm!GetFromWMP" image="bones"/>
<button id="Monitor" label="MonitorFolders" onAction="Mediaplayer.xlsm!MonitorFolders"/>
</group>
<group id="libraryTab" label="Library/Playlists">
<button id="ShowPlaylist" label="Goto Playlists" onAction="Mediaplayer.xlsm!ShowPlaylists"/>
<button id="ShowCurPlaylist" label="Goto Now Playing" onAction="Mediaplayer.xlsm!ShowNowPlaying"/>
<button id="Lib" label="Goto Library" onAction="Mediaplayer.xlsm!GotoLibrary"/>
<button id="SufflePL" label="Shuffle Recent Playlist" onAction="Mediaplayer.xlsm!mixPlaylist"/>
</group>
<group id="qPL" label="Quick Playlists">
<button id="QuickPlaylist" label="Create Quick Playlist" onAction="Mediaplayer.xlsm!QuickPL"/>
</group>
<group id="controls" label="Controls">
<button id="Play" label="Play" onAction="Mediaplayer.xlsm!PlayR"/>
<button id="Pause" label="Pause" onAction="Mediaplayer.xlsm!PauseR"/>
<button id="Stop" label="Stop" onAction="Mediaplayer.xlsm!StopR"/>
<button id="Next" label="Next" onAction="Mediaplayer.xlsm!NextR"/>
<button id="Previous" label="Previous" onAction="Mediaplayer.xlsm!PreviousR"/>
<button id="Open" label="Open" onAction="Mediaplayer.xlsm!OpenR"/>
<button id="Shuffle" label="Shuffle" onAction="Mediaplayer.xlsm!SuffleR"/>
</group>
</tab>
</tabs>
</ribbon>
</customUI> are creating a new option, the sample tab will get you started with a few interesting cases. Look at the portal above to learn more about what you could do. The menu that this represents is: look at startFromScratch="true". If it is set to a fact, the original RibbonUI will not be accessible or visible. Contextual tabs will continue to show unless you explicitly set those tabs 'Visible=False'. Within the above image 'StartFromScratch' is correct, but I removed this from the sample so that it truly is easy to utilize the rest of Excel UI. the tabs groups, I wanted to make the Media Player follow the Themes available in Office 2007 (http://www.office2010-key.de/office-2007-key) to give it a 'skinnable' feel. To try and do this I extra a preexisting group on my customized Media Player Tab: <group idMso="GroupTheme######cel" visible="true"/> In the event you wish to repurpose, reuse, or add buttons to existing Ribbon objects, you can find information on the MSO ControlIDs here. are a few custom groups,office 2010 Home And Student x86 (http://www.office2010-key.de/), and in each of the groups you can expect to set of buttons with an OnAction property set. When you click the 'generate callbacks' button inside Custom UI Editor, you may get auto generated VBA code. All I did is add a call to Play_Click so that my ribbon functionality matches my Office Graphics button functionality. Play onAction
Sub xlsm!PlayR(control as IRibbonControl)
Play_Click
End Sub above, if you're performing lots of add-in growth and Ribbon additions,office Home And Business 2010 32bit key (http://www.office2010-key.de/), I recommend investigating Visual Studio Tools for Office. you have it, the basic concepts to creating a fully functional media library/player in Excel. As mentioned from the first post, the great thing about creating solutions in Excel may be the flexibility it provides. For instance, once you import a concert celebration RSS feed into a table, you can actually easily do a VLookup on the artist name and create playlists based on the music in the area. You are able to then link to a few social web services (Last.FM or Zune for instance) to find 'related' artists to your most listened to artists with minimal effort. With Excel, anything is possible.