I have an Excel spreadsheet that needs to determine if the .NET Framework is installed as well as the path to that install. How can this be acomplished in VBA code
Determine if and where the .NET Framework is installed using VBA
Visual Basic for Applications (VBA)
-
- Previous
- 1
- Locking clickable labels Can you lock a label like you can a toggleButton I have some code as follows; If toggleButton1.value = True Then togglebutton2.locked = True Else togglebutton2.locked = False End If But I also want to temporarily lock some clickable labels, but there is no ".locked" function for labels. How do I stop a label's click action from being allowable under certain circumstances Thanks. Tag: Determine if and where the .NET Framework is installed using VBA
- 2
- Error 1004 with Excel 2007 (on VISTA) on Publish method Hi, I'm trying to publish a Range in an html file from excel 2007 (OS is VISTA) and I receive an error 1004 on the Publish method. Here is the code I'm using : Code Block ' temp file name Dim TempFile As String TempFile = Environ$("temp") & "\" & Format(Now, "dd-mm-yy h-mm-ss") & ".htm" ' delete any PublishObjects left Set objPObjs = ActiveWorkbook.PublishObjects For Each objPO In objPObjs If objPO.HtmlType = xlHtmlStatic Then objPO.Delete End If Next objPO ' Set the publishObject attributes ActiveWorkbook.PublishObjects.Add _ SourceType:=xlSourceRange, _ Filename:=TempFile, _ Sheet:=ActiveSheet.Name, _ Source:="A1:J12", _ HtmlType:=xlHtmlStatic ' Publish the object For Each objPO In objPObjs If objPO.HtmlType = xlHtmlStatic Then objPO.Publish End If Next objPO I tried many things (including samples found on theweb) without success. Any help appreciated. Regards, Laurent. Tag: Determine if and where the .NET Framework is installed using VBA
- 3
- how to get the VALUE of an OUTLINENUMBER (word / macro in VB) Hi, I am currently working on a VB macro which has to get references in Word documents in order to make a traceability matrix. My problem comes from a document, in which the references are Outlinenumbers in a column containing this outlinenumber list. I have to get the value of the cells of this column, but these outlinenumbers (auto-incremented numbers) are neither strings nor numbers... I don t know the type and then I don t know how to get the value. Any idea that would be great because i m currently stopped in my internship because of that. Regards, Cal. Tag: Determine if and where the .NET Framework is installed using VBA
- 4
- HELP FIX THE CODE.......... I have somehow managed to put some code together to complete a task that i have found some difficulty with. Match and delete a row from table. Need some help fixing the code.......... ArrNames = Array("creation1", "creation2", "creation3", "Creation4", "creation5", "creation6", "creation7", "creation8", "creation9", "creation10", "creation11") If Not IsError(Application.Match(.Value, ArrNames, 0)) Then .EntireRow.Delete Dim ArrNames As Variant With .Cells(Lrow, "B") Firstrow = .UsedRange.Cells(1).Row Lastrow = .UsedRange.Rows(399).Row Sub Loop_Example() Dim Firstrow As Long Dim Lastrow As Long Dim Lrow As Long Dim CalcMode As Long Dim ViewMode As Long With Application CalcMode = .Calculation .Calculation = xlCalculationManual .ScreenUpdating = False End With Tag: Determine if and where the .NET Framework is installed using VBA
- 5
- Problems with VB solver code I am writing visual basic code behind an excel spreasheet and am having difficulty making it work. It involves using the solver function. The code is listed below: Sub signif_control_pop() Dim cntlpc Dim pop 'Clear any previous solver settings. SOLVERReset 'Prompt user for population size. pop = Application.InputBox(Prompt:="Population Total:", Type:=1) Range("C3") = pop 'Set targeted cell, H16, to a value by changing the range of acceptable percentages. SolverOK SetCell:=Range("H16"), MaxMinVal:=3, _ ValueOf:=0.95, _ byChange:=Range("B5") ' Solve the model and keep the final results. SolverSolve Userfinish:=False 'Save results of control percent before you discard the results. cntl_pc = Range("B5") SolverFinish KeepFinal:=1 'NOTE: Does not work if I include ReportArray:=1 ' Show the result in a message box. MsgBox "The Control Population Percent for " & pop & " is " & cntl_pc & " " End Sub The problem I'm having is regarding the "ByChange" cell (B5) used in the solver function. The value in the cell never changes. When the message box is displayed, it always displays the same number, which is the number that was sitting in cell B5 before I ran the program. I have included "SolverFinish KeepFinal:= 1" in the code. If I do not run the visual basic code, but rather manually run Solver in excel, it will change cell as I want it to do. Any help is appreciated. Stacy Tag: Determine if and where the .NET Framework is installed using VBA
- 6
- New to Visual Basic Hi Dear, The simplest way to perform this task will be to save the each button value in a single string and whenever you want its integer or float representation cast it into the integer. eg. Code Snippet Dim str As String Dim Number As Integer str = "" str = str + "1" ' On Button 1 Press str = str + "2" ' On Button 2 Press 'and when u want integer representation of the string cast the string into integer Number = CInt (str) Happy Programming! Tag: Determine if and where the .NET Framework is installed using VBA
- 7
- Information required : WOW64 I beg to differ with the statement above: "It does this by intercepting calls to APIs like GetSystemDirectory and returning the appropriate directory" A 32 Bit VB program with: Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long Will return "c:\windows\system32" when run on windows 2003 64BIT. This is causing major hassles with every single 32-bit program that makes this system call and breaks most installers that put things in the system folder. 32-bit DLL's simply do not appear to be able to be used if they are installed in system32. If the GetSystemDirectory call in Kernel32 does not return the right folder how can anyone expect applications to work correctly Tag: Determine if and where the .NET Framework is installed using VBA
- 8
- MSDN Installation I've MSDN installed on my system, since i've installed it through MSDN setup (not by VS setup) Visual Studio does not recognize its presence(Ctrl+F1 doesn't work.), Is there a way I could tell visual studio about the presence of MSDN. By the way this behaviour is common in both VS 2003 as well as VS2005 Tag: Determine if and where the .NET Framework is installed using VBA
- 9
- error message when closing ie7 I was having this same error message every time I exited Explorer. One of the formums mentioned the optional Expr add-ons might be a problem. So I went back in and deleted/removed all of the Explorer add-ons I had downloaded through MS Update. That did the trick. My question: why is it listed on MS Update as an option if it causes additional issues Thanks! AContinuallyFrustratedMsCustomerWhoThinksIfHisCompanyProducedProductThatWorkedAsInconsistantlyAsMs'sHisCompanyWouldBeLongGone Tag: Determine if and where the .NET Framework is installed using VBA
- 10
- add group to printer ACL Hello, I have a print server with 200 shared printers. I need to add a group to each printer ACL with an appropriate rights (same for all printers). Is anyway to script it Thank you Ali Tag: Determine if and where the .NET Framework is installed using VBA
- 11
- VBA XML and encoding Hello, Here is my issue. In an excel sheet, I fill in several cells which contain text. This text can be either in english / french / spanish / italien / german, which means I can have characters like "e" or "e" etc... In a vba macro I'm trying to put all these data into an XML, this XML is then processed later on by an ASP.net app I have created (using an xmlreader). The thing is, when I try to display the value of each node of my XML with my ASP.net app, some characters are replaced by squares. For example, characters like "-", "...", singlequote BUT, characters like "e" and "e" are perfectly displayed . And when I have a look into my XML file with Visual Studio I can clearly see all my characters. Everything is fine. However, when I try to save the file in VS, it warns me "that some unicode characters can't be saved in the current codepage. Do you want to resave the file as Unicode in order to maintain your data " If I click "YES" it then set the Xml Encoding to : UTF-16 And from now on, everything is displayed correctly in my ASP.net app. Here is the VBA Code which generates my XML File. Code Snippet Open strPath & cstStudyName & ".xml" For Output As 1 Print #1, "< xml version=" & Chr(34) & "1.0" & Chr(34) & " encoding=" & Chr(34) & "ISO-8859-1" & Chr(34) & " >" Print #1, "<root>" iCurLine = cstiStartLine While objSheet.Cells(iCurLine, cstiVarCol).Value <> "" strValue = objSheet.Cells(iCurLine, iEnglisCol) Print #1, "<" & objSheet.Cells(iCurLine, cstiVarCol) & " label= " & Chr(34) & CheckContentsXML(strValue) & Chr(34) & "/>" iCurLine = iCurLine + 1 Wend Print #1, "</root>" Close #1 As you can see, I have tried to specify "ISO-8859-1" in the XML header. If I specify "UTF-8" then xmlreader is generating an error at the first weird character it encounters such as "-" If I try to specify "UTF-16", it then becomes a bunch of unreadable characters and my ASP.net display nothing. Does anyone have an idea Thanks a lot. Tag: Determine if and where the .NET Framework is installed using VBA
- 12
- Increase prompt in message box Thanks. However the problem with using a text box is that a text box is interactive, allowing the user to click in it and alter the text. I don't want this. I just want an unchangeable message (a rather long help message) to be displayed. How would I do this Tag: Determine if and where the .NET Framework is installed using VBA
- 13
- Configuration Failed Hi. I'm also getting this error while trying to fix SharePoint Portal 2007. A little background about what I did: 1) I wanted to uninstall SharePoint from a web site (or webapplication, whatever) 2) I clicked it and immediately realized i was uninstalling from the Administration Page rather than from the other site i wanted. 3) It was too late. 4) I tried running the SharePoint products and Technologies Configuration Wizard to fix it. Several attempts did not seem to make any difference 5) I un-installed the admin page from my 2 web front ends, and also from my Job/Index server 6) I then deleted the IIS SharePoint v3 admin page and the corresponding folder (after backing it up) 7) I tried running SharePoint Products and Technologies Configuration Wizard again. 8) It runs through most of it and then failes with that error message. I'm running SharePoint Portal 2007 on Microsoft Windows 2003. Tag: Determine if and where the .NET Framework is installed using VBA
- 14
- Communicator Mobile 2005 and TLS (Using port 4443 possible?) More options Confused on something with CM and CWA: We have web access enabled/installed, it uses MTLS and certificates on port 4443 to access the site... I'm assuming when using Communicator Mobile on Windows Mobile 2005, I specify TLS to connect remotely to the server (no vpn).. Is there a way to specify port 4443 or is the TLS port 443 even with Web Access installed on port 4443 (IE: these are different or the same) Thanks Tag: Determine if and where the .NET Framework is installed using VBA
- 15
- VBA in Excel - organizing charts as objects in a sheet I am using a macro to create multiple charts from data on a separate sheet in the Excel file. However, the program places each new chart on top of the previous one in the sheet I select. I would like to place these charts apart on the sheet so that they are viewable. 1) Is there an command to order the charts down and across the sheet 2) Alternatively, can I select and move each sheet without using the actual object name in the while loop, "Chart1," for example. 3) Specifiying the object name would only work for the first chart. Is there a way to number the charts with a variable Here is the while portion of my code as it is now ( red text indicates the portion I am having difficulty with ) : While j < 243 Charts.Add With Sheets("TRESULTSdmp_3") ActiveChart.SetSourceData Source:=.Range(.Cells(i + 1, j + 1), .Cells(i + m, j + 1)), PlotBy:=xlColumns End With ActiveChart.ChartType = xlXYScatter ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1" With ActiveChart .HasTitle = True .ChartTitle.Characters.Text = "Test point to the right" .Axes(xlCategory, xlPrimary).HasTitle = False .Axes(xlValue, xlPrimary).HasTitle = False End With ActiveWindow.Visible = False <----- question 2 above) want to move object to a specific location ActiveWindow.WindowState = xlNormal (will have to make Range a variable) ActiveWindow.WindowState = xlMaximized Range("A1").Select ActiveSheet.ChartObjects("Chart 8").Activate ActiveChart.Paste ActiveSheet.Shapes("Chart 3").IncrementLeft -123.75 <--- question 3 above) want to make object # variable ActiveSheet.Shapes("Chart 3").IncrementTop -8.25 j = j + 1 Wend Tag: Determine if and where the .NET Framework is installed using VBA
- 16
- AutoExec will not execute properly Hi the series of macros must run in Word, Excel and Powerpoint. Therefore individual start modules exist for the three applications calling then the common Sub initialise_program here is the code in Module "Main" Sub AutoExec() ' ' macro is run when AddIn is read in ' the only job is to set the entry in the menubar ' Call initialise_program() End Sub ' AutoExec Module mod_initialise_form_menu Sub remove_commandbar_entry() Dim xx, my_bar As Object Set my_bar = CommandBars.ActiveMenuBar ' remove existing entry (may be more than one!) For Each xx In my_bar.Controls If xx.Caption = menu_forms Then my_bar.Controls(xx.Caption).Delete End If ' xx.Caption = menu_forms Next xx ' Each xx In my_bar.Controls End Sub Sub initialise_program() ' ' ' Adds the menue to the menubar ' Dim xx, cmd, my_bar, new_menu As Object Dim cmd_sub As CommandBarControl Dim aa As String Dim yy, entry_nr As Long Dim test As String, is_here As String ' ' get language dependent texts ' If init_them_variables(True) = False Then Exit Sub ' ' remove possibly existing CommandBar entry ' Call remove_commandbar_entry ' ' find " " so that new entry position can be defined yy = 0 Set my_bar = CommandBars.ActiveMenuBar For Each xx In my_bar.Controls yy = yy + 1 If xx.Caption = "& " Then Exit For End If ' xx.Caption = "& " Next xx ' Each xx In my_bar.Controls ' check if word If InStr(1, Application.Name, "word", vbTextCompare) > 0 Then Set new_menu = my_bar.Controls.Add(Type:=msoControlPopup, before:=yy) Else ' InStr(1, Application.Name, "word", vbTextCompare) > 0 Set new_menu = my_bar.Controls.Add(Type:=msoControlPopup, before:=yy, Temporary:=True) End If ' InStr(1, Application.Name, "word", vbTextCompare) > 0 new_menu.Caption = menu_forms ' Set cmd = new_menu.Controls.Add(Type:=msoControlButton, Id:=1) cmd.Caption = menu_forms_and_documents '"&Formulare und Dokumente" cmd.TooltipText = "Formulare und Dokumente" cmd.Style = msoButtonCaption cmd.OnAction = "get_form" test = Dir(local_start_folder & name_project_list_txt) If test <> "" Then Set cmd = new_menu.Controls.Add(Type:=msoControlButton, Id:=1) cmd.Caption = menu_projects ' "&Projektdokumente" cmd.TooltipText = "Formulare und Dokumente" cmd.Style = msoButtonCaption cmd.OnAction = "Select_Project_Document" End If ' test <> "" Set cmd = new_menu.Controls.Add(Type:=msoControlPopup, Id:=1) cmd.Caption = menu_file_management ' "&Dateimanagement" cmd.TooltipText = "" ' Set cmd_sub = cmd.Controls.Add(Type:=msoControlButton, Id:=1) cmd_sub.Caption = menu_protection_set '"Schreibschutz &setzen" cmd_sub.TooltipText = "" cmd_sub.Style = msoButtonCaption cmd_sub.OnAction = "file_release" ' Set cmd_sub = cmd.Controls.Add(Type:=msoControlButton, Id:=1) cmd_sub.Caption = menu_protection_clear '"Schreibschutz &entfernen" cmd_sub.TooltipText = "" cmd_sub.Style = msoButtonCaption cmd_sub.OnAction = "remove_write_protect" Set cmd_sub = cmd.Controls.Add(Type:=msoControlButton, Id:=1) cmd_sub.Caption = menu_archive '"Datei &archivieren" cmd_sub.TooltipText = "" cmd_sub.Style = msoButtonCaption cmd_sub.OnAction = "archive_document" ' ' check if mod_customer_data is ok, if not, don't show menu_client_data ' If mod_customer_data_bas = True Then Set cmd = new_menu.Controls.Add(Type:=msoControlPopup, Id:=1) cmd.Caption = menu_client_data ' "&Kundendaten" cmd.TooltipText = "" ' Set cmd_sub = cmd.Controls.Add(Type:=msoControlButton, Id:=1) cmd_sub.Caption = menu_client_data_enter '"&Neue Kundendaten eingeben" cmd_sub.TooltipText = "" cmd_sub.Style = msoButtonCaption cmd_sub.OnAction = "enter_new_customer_data" ' Set cmd_sub = cmd.Controls.Add(Type:=msoControlButton, Id:=1) cmd_sub.Caption = menu_client_data_change ' "&Aktuelle Kundendaten andern" cmd_sub.TooltipText = "" cmd_sub.Style = msoButtonCaption cmd_sub.OnAction = "change_customer_data" ' Set cmd_sub = cmd.Controls.Add(Type:=msoControlButton, Id:=1) cmd_sub.Caption = menu_client_data_insert '"&In Formular einfugen" cmd_sub.TooltipText = "" cmd_sub.Style = msoButtonCaption cmd_sub.OnAction = "insert_customer_data" End If ' Application.Name <> "Microsoft PowerPoint" If update_allowed <> "yes" Then Set cmd = new_menu.Controls.Add(Type:=msoControlButton, Id:=1) cmd.Caption = menu_update_forms ' "&Update Formulare" cmd.TooltipText = "Update Formulare" cmd.Style = msoButtonCaption cmd.OnAction = "menue_get_new_files" End If ' update_allowed <> "yes" ' ' test if Guru is here ' If InStr(1, all_the_gurus, get_user_name, vbTextCompare) > 0 Then Set cmd = new_menu.Controls.Add(Type:=msoControlPopup, Id:=1) cmd.Caption = menu_procedures ' "&Prozeduren" cmd.TooltipText = "" ' Set cmd_sub = cmd.Controls.Add(Type:=msoControlButton, Id:=1) cmd_sub.Caption = menu_procedures_save ' "&Save Procedure" cmd_sub.TooltipText = "" cmd_sub.Style = msoButtonCaption cmd_sub.OnAction = "archive_procedure" End If ' InStr(1, all_the_gurus, get_user_name, vbTextCompare) > 0 End Sub ======= end of code ======== In the cases were the macro does not execute properly only the entries menu_protection_set, menu_protection_clear and menu_archive appear in the menubar Hope this helps! regards Jurgen Tag: Determine if and where the .NET Framework is installed using VBA
- 1
- Next
- 1
- Pivot Table Macro Thank you Navajo - I will try what you suggested. Gary Tag: Determine if and where the .NET Framework is installed using VBA
- 2
- how can I count # of columns between two specific columns? The key is to get the column in integer value. Range("A3").column will give you 1 Range("D321").column will give you 4 the row number doesn't matter. you can figure out the rest since I don't know how you want to count it specifically. Tag: Determine if and where the .NET Framework is installed using VBA
- 3
- Why the do while loop does not work? Instead of Range(cells(raffiliate, 1), cells(raffiliate, lastcolumnGSVGrowthRate)).Select Selection.Copy worksheets("AFFILIATE").Activate ActiveSheet.cells(rowaffiliate, 1).Select Selection.PasteSpecial Paste:=xlPasteAll Use Range(Cells(raffiliate, 1), Cells(raffiliate, lastcolumnGSVGrowthRate)).Copy Destination:=Worksheets("AFFILIATE").Sheets(1).Cells(rowaffiliate, 1) This will have the control in the activesheet and still copies the contents to Affiliate sheet Cheers Shasur Tag: Determine if and where the .NET Framework is installed using VBA
- 4
- VBA and automated word generation Move the thread from Visual Basic General since the question is mainly on VBA. There are more exports in Visual Basic for Application forum and I believe you can get satisfying answers in this forum. Thanks again for your question. Tag: Determine if and where the .NET Framework is installed using VBA
- 5
- Using Excel files in MS Works Had Office and XP on my previous computer and created several Excel files I want/need to keep New computer has Vista and MS WORKS installed - will I have a problem with transferring the Excel files to new computer If so, how do I remedy Tag: Determine if and where the .NET Framework is installed using VBA
- 6
- iexplore.exe - Application Error I also get error message with my explorer. It says "0x00139ae5" referenced memory at "0x00139ae5". The memory could not be "written". It happened when I installed and used IE 7 beta. Already getting frustrated with this. Tag: Determine if and where the .NET Framework is installed using VBA
- 7
- error with wscript.shell error 80070483 hi, i am trying to run a vb script from a VBA module in excel. fn = "test.vbs Set wshShell = CreateObject("Wscript.Shell") wshShell.Run (fn) in the line wshShell.Run (fn) i obtain an error error 80070483 method Run of object IWshShell3 failed it is the first time i do this, so i am not shure if i need to have done something before, some references in windows extension .vbs is not related to any application (is it ok ) tks in advance Tag: Determine if and where the .NET Framework is installed using VBA
- 8
- Obtain Unique Work Units via SQL Adamus, How and where does that fit into my current code Tag: Determine if and where the .NET Framework is installed using VBA
- 9
- Adding Menu to Microsoft project 2007 using VBA How can I add a custom menu using VBA code. There are some changes happened in from Microsoft Project 2003 to Microsoft Project 2007. How can I add custom menu to microsoft project 2007 and make it work to invoke appropriate code. Are there any whitepaper which talks about the changes in the coding from Microsoft project 2003 to 2007. I am new to this area of coding with little knowledge of VBA. ANy help will be highly appreciated. A sample code will work wonders for me. Tag: Determine if and where the .NET Framework is installed using VBA
- 10
- compile error: invalid quaifier Hi! Thanks a lot! It works like this!!!! Thanks!! Tag: Determine if and where the .NET Framework is installed using VBA
- 11
- Collection Item: Parent / NextItem Hi, I am struggling with classes. This is what I want to do, in VBA (test it in Excel please): I want to add a property/function to my class, named NextItem and PreviousItem. These return the next and previous items in the collection. I have several separate collections where I keep my items in. So if I want to determine the next and previous item, I need to figure out in which collection the item resides before I can start to loop through that collection. Unfortunately there is no collection.item.parent. That is what I need to simulate I thought about adding a property ParentCollection to the class, but how can I use that property as a pointer to a collection and retrieve the collection from that pointer. Help! Tag: Determine if and where the .NET Framework is installed using VBA
- 12
- VBA Language Definition Im working with VBA as used in the macro editor for Excel 2003... whatever that is Just VBA as far as im concerned You're right its not easy. Im only really looking to interpret the more basic statements but i still find myself constantly thinking of new ways that things could be written and hoped there was some kind of language definition to help me out. For example, when working on my variable declaration handler, it originally was initialised when it came across the 'Dim' keyword, then i remembered a variable might be initialised with 'const'... then realised those could be public or private etc etc etc. An official definition would help i think Cheers Tag: Determine if and where the .NET Framework is installed using VBA
- 13
- Are these valid bucket ids ? Hi DHON, The first 3 buckets (456012092, 455976259, 455999458) appear to have been corrupted. The last bucket appears to be a valid PCA2 event however you don't seem to have the reported version mapped (7.30.0.0). Even if the correct version was mapped, we do not display PCA2 events on Developer Portal. -Saar Picker Developer Portal - http://winqual.microsoft.com Tag: Determine if and where the .NET Framework is installed using VBA
- 14
- VBA 6.5 New Version? Thank you for the reply. After some additional testing I have determined that the problem is probably not due to the new version of VBA. Too bad Microsoft is not improving this product very aggressively. There are some significant bugs and other areas where improvements could be made. Tag: Determine if and where the .NET Framework is installed using VBA
- 15
- Updating column totals in sub forms This has to be simpler than I'm making it! Trying to maintain column ototals ni SubForm, and update them to the MainForm. Typical Northwind-type Orders-&-Details relationship: I extend row totals in the OrderDetails subform; and show OrderTotal (column total) in the SubForm's FormFooter. So far, so good. But when I change a quantity or price in the subform, I'd expect the subtotal to change automatically, no It does not; and I don't know whether I need to code a "Change" event myself, to modify that total whenever a single cell changes; and whether I must loop through the rows, or if there's a nifty group-operator in Access to do the columnTotal for me. (I'm a VB programmer, reluctantly roped into writing an Access form.) Finally, when I leave the Main Record (i.e., parent of the rows in the subForm), I want to store the updated suptotals in the Main/Parent record. (I know, I know, it's not kosher, but they pay me to do this stuff. -- Besides, it records what has been billed as it was billed; not as it's been updated since.) Many thanks, anyone who can provide a cogent reply. S Tag: Determine if and where the .NET Framework is installed using VBA
- 16
- AutoExec will not execute properly Hi the series of macros must run in Word, Excel and Powerpoint. Therefore individual start modules exist for the three applications calling then the common Sub initialise_program here is the code in Module "Main" Sub AutoExec() ' ' macro is run when AddIn is read in ' the only job is to set the entry in the menubar ' Call initialise_program() End Sub ' AutoExec Module mod_initialise_form_menu Sub remove_commandbar_entry() Dim xx, my_bar As Object Set my_bar = CommandBars.ActiveMenuBar ' remove existing entry (may be more than one!) For Each xx In my_bar.Controls If xx.Caption = menu_forms Then my_bar.Controls(xx.Caption).Delete End If ' xx.Caption = menu_forms Next xx ' Each xx In my_bar.Controls End Sub Sub initialise_program() ' ' ' Adds the menue to the menubar ' Dim xx, cmd, my_bar, new_menu As Object Dim cmd_sub As CommandBarControl Dim aa As String Dim yy, entry_nr As Long Dim test As String, is_here As String ' ' get language dependent texts ' If init_them_variables(True) = False Then Exit Sub ' ' remove possibly existing CommandBar entry ' Call remove_commandbar_entry ' ' find " " so that new entry position can be defined yy = 0 Set my_bar = CommandBars.ActiveMenuBar For Each xx In my_bar.Controls yy = yy + 1 If xx.Caption = "& " Then Exit For End If ' xx.Caption = "& " Next xx ' Each xx In my_bar.Controls ' check if word If InStr(1, Application.Name, "word", vbTextCompare) > 0 Then Set new_menu = my_bar.Controls.Add(Type:=msoControlPopup, before:=yy) Else ' InStr(1, Application.Name, "word", vbTextCompare) > 0 Set new_menu = my_bar.Controls.Add(Type:=msoControlPopup, before:=yy, Temporary:=True) End If ' InStr(1, Application.Name, "word", vbTextCompare) > 0 new_menu.Caption = menu_forms ' Set cmd = new_menu.Controls.Add(Type:=msoControlButton, Id:=1) cmd.Caption = menu_forms_and_documents '"&Formulare und Dokumente" cmd.TooltipText = "Formulare und Dokumente" cmd.Style = msoButtonCaption cmd.OnAction = "get_form" test = Dir(local_start_folder & name_project_list_txt) If test <> "" Then Set cmd = new_menu.Controls.Add(Type:=msoControlButton, Id:=1) cmd.Caption = menu_projects ' "&Projektdokumente" cmd.TooltipText = "Formulare und Dokumente" cmd.Style = msoButtonCaption cmd.OnAction = "Select_Project_Document" End If ' test <> "" Set cmd = new_menu.Controls.Add(Type:=msoControlPopup, Id:=1) cmd.Caption = menu_file_management ' "&Dateimanagement" cmd.TooltipText = "" ' Set cmd_sub = cmd.Controls.Add(Type:=msoControlButton, Id:=1) cmd_sub.Caption = menu_protection_set '"Schreibschutz &setzen" cmd_sub.TooltipText = "" cmd_sub.Style = msoButtonCaption cmd_sub.OnAction = "file_release" ' Set cmd_sub = cmd.Controls.Add(Type:=msoControlButton, Id:=1) cmd_sub.Caption = menu_protection_clear '"Schreibschutz &entfernen" cmd_sub.TooltipText = "" cmd_sub.Style = msoButtonCaption cmd_sub.OnAction = "remove_write_protect" Set cmd_sub = cmd.Controls.Add(Type:=msoControlButton, Id:=1) cmd_sub.Caption = menu_archive '"Datei &archivieren" cmd_sub.TooltipText = "" cmd_sub.Style = msoButtonCaption cmd_sub.OnAction = "archive_document" ' ' check if mod_customer_data is ok, if not, don't show menu_client_data ' If mod_customer_data_bas = True Then Set cmd = new_menu.Controls.Add(Type:=msoControlPopup, Id:=1) cmd.Caption = menu_client_data ' "&Kundendaten" cmd.TooltipText = "" ' Set cmd_sub = cmd.Controls.Add(Type:=msoControlButton, Id:=1) cmd_sub.Caption = menu_client_data_enter '"&Neue Kundendaten eingeben" cmd_sub.TooltipText = "" cmd_sub.Style = msoButtonCaption cmd_sub.OnAction = "enter_new_customer_data" ' Set cmd_sub = cmd.Controls.Add(Type:=msoControlButton, Id:=1) cmd_sub.Caption = menu_client_data_change ' "&Aktuelle Kundendaten andern" cmd_sub.TooltipText = "" cmd_sub.Style = msoButtonCaption cmd_sub.OnAction = "change_customer_data" ' Set cmd_sub = cmd.Controls.Add(Type:=msoControlButton, Id:=1) cmd_sub.Caption = menu_client_data_insert '"&In Formular einfugen" cmd_sub.TooltipText = "" cmd_sub.Style = msoButtonCaption cmd_sub.OnAction = "insert_customer_data" End If ' Application.Name <> "Microsoft PowerPoint" If update_allowed <> "yes" Then Set cmd = new_menu.Controls.Add(Type:=msoControlButton, Id:=1) cmd.Caption = menu_update_forms ' "&Update Formulare" cmd.TooltipText = "Update Formulare" cmd.Style = msoButtonCaption cmd.OnAction = "menue_get_new_files" End If ' update_allowed <> "yes" ' ' test if Guru is here ' If InStr(1, all_the_gurus, get_user_name, vbTextCompare) > 0 Then Set cmd = new_menu.Controls.Add(Type:=msoControlPopup, Id:=1) cmd.Caption = menu_procedures ' "&Prozeduren" cmd.TooltipText = "" ' Set cmd_sub = cmd.Controls.Add(Type:=msoControlButton, Id:=1) cmd_sub.Caption = menu_procedures_save ' "&Save Procedure" cmd_sub.TooltipText = "" cmd_sub.Style = msoButtonCaption cmd_sub.OnAction = "archive_procedure" End If ' InStr(1, all_the_gurus, get_user_name, vbTextCompare) > 0 End Sub ======= end of code ======== In the cases were the macro does not execute properly only the entries menu_protection_set, menu_protection_clear and menu_archive appear in the menubar Hope this helps! regards Jurgen Tag: Determine if and where the .NET Framework is installed using VBA
- 1
- Previous
Re: Determine if and where the .NET Framework is installed using VBA
bi-lya
You can use the Registry "HKEY_LOCAL_MACHINE \ SOFTWARE \ Microsoft \ Windows \ CurrentVersion \ Uninstall" to determine existent soft. You need to use the API-functions RegQueryValueExString, RegOpenKeyEx and others
I have made this function, tomorrow I will test it (I will use PC without the FrameWork)
Do you still need in it
Re: Determine if and where the .NET Framework is installed using VBA
vtortola
For example check if exists %windir%/Microsoft.NET/Framework/ directory.
Regards.
For example check if exists %windir%/Microsoft.NET/Framework/ directory.
Regards.
Re: Determine if and where the .NET Framework is installed using VBA
bi-lya
Hi!
It's good, but if soft isn't installed Also, Windows Sistem may set in different PC on different disks (C, D, E...)
Re: Determine if and where the .NET Framework is installed using VBA
vtortola
%windir% is a environment variable that point to Windows instalation path in this PC.
C:\Documents and Settings\ValerianoSrvr>set windir
windir=C:\WINNT
How a Windows system can be installed in a different PC
Regards.
%windir% is a environment variable that point to Windows instalation path in this PC.
C:\Documents and Settings\ValerianoSrvr>set windir
windir=C:\WINNT
How a Windows system can be installed in a different PC
Regards.
Re: Determine if and where the .NET Framework is installed using VBA
bi-lya
vtortola, I mean if you will use your code in other computer, it don't work if Sistem was set on disk E:\ or D:\
And I finished and tested my function. It "determine if the .NET Framework is installed as well as the path to that install"
Re: Determine if and where the .NET Framework is installed using VBA
vtortola
Oh! i'm sorry , sometimes i have some problems with my english understanding 
Regards.