Sætte focus på en control på en dialogboks i PowerPoint

Powerpoint er en del af Office pakken, så umiddelbart vil jeg tro du placerede spørgsmålet korrrekt første gang.

Men selve spørgsmålet haldler nok ligesåmeget om programmereingssproget VBScript i forbindelse med powerpoint, og VBScript er der en kategori for:
    http://www.eksperten.dk/spm/Programmering/Script/VBscript/

Så jeg vil anbefale at du:
1) svarer selv her og dermed sletter dette spørgsmål.
2) accepterer det svar du allerede har fået i Office kategorien.
3) stillet et nyt "Hvordan sætter jeg focus" spørgsmål i VBScript kategorien (husk at nævne det er til powerpoint, selvom det ikke burde gøre nogen forskel.)

mvh JakobA

Tak for din tilbagemelding, men PowerPoint bruger faktisk også VBA (som jeg koder i) og VBA ligger meget tæt på VB, hvorfor Windows API'er (som nok er det jeg søger) også virker i PowerPoint.

Jeg spurgte i denne kategori, fordi programmeringshajerne måske ikke har så meget fokus på PowerPoint kategorien (hvor jeg ikke har kunnet få svar).

her er løsningen:

Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Declare Function EnumChildWindows Lib "user32" (ByVal hWndParent As Long, ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long
Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long

Dim m_strTabName As String 'Lokal var til at angive tab-navnet

Sub ShowFileNewGraf()
Dim strChosenTab As String

    On Error GoTo Error
'    Application.CommandBars("Menu bar").Controls("Insert").Controls("Slides from Files...").Execute
    Application.CommandBars("Menu bar").Controls("Indsæt").Controls("Dias fra filer...").Execute

    DoEvents
'    strChosenTab = GetText("Slide Finder")
    strChosenTab = GetText("Diassøgning")
   
'    If strChosenTab = "Liste over foretrukne" Then
    If strChosenTab = "&Filer:" Then
        SendKeys ("^{TAB}")
        DoEvents
       
    End If
   
   
    SendKeys ("%F")
    SendKeys ("H:\PowerPoint\Grafer\Grafer.pot")
    SendKeys ("%V") 'Sender Alt + D = Display
   
    GoTo Slut
Error:
    MsgBox Err.Number
Slut:
End Sub
Sub ShowFileNewDiagram()
Dim strChosenTab As String

    On Error GoTo Error
'    Application.CommandBars("Menu bar").Controls("Insert").Controls("Slides from Files...").Execute
    Application.CommandBars("Menu bar").Controls("Indsæt").Controls("Dias fra filer...").Execute

    DoEvents
'    strChosenTab = GetText("Slide Finder")
    strChosenTab = GetText("Diassøgning")
   
'    If strChosenTab = "Liste over foretrukne" Then
    If strChosenTab = "&Filer:" Then
        SendKeys ("^{TAB}")
        DoEvents
       
    End If
   
   
    SendKeys ("%F")
    SendKeys ("H:\PowerPoint\Grafer\Grafer.pot")
    SendKeys ("%V") 'Sender Alt + D = Display
   
    GoTo Slut
Error:
    MsgBox Err.Number
Slut:
End Sub
Public Function GetText(sApplicationName As String) As String


    'Nulstiller tabnavn
    m_strTabName = ""
   
    'Check if the window exists
    If FindWindow(vbNullString, sApplicationName) <> 0 Then
        'Enumerate the Child Windows
        EnumChildWindows FindWindow(vbNullString, sApplicationName), AddressOf EnumChildProc, ByVal 0&
    End If
       
    'Returnerer tabnavn
    GetText = m_strTabName
End Function
Public Function EnumChildProc(ByVal hwnd As Long, ByVal lParam As Long) As Long
    Dim sReturn As String
   
    'Get the windowtext length
    sReturn = Space$(GetWindowTextLength(hwnd) + 1)
    'get the window text
    GetWindowText hwnd, sReturn, Len(sReturn)
    'remove the last Chr$(0)
    sReturn = Left$(sReturn, Len(sReturn) - 1)
    Debug.Print sReturn
    'Debug.Print sReturn
    'Gemmer fanenavnet. Det er det første navn, der findes frem
    If m_strTabName = "" Then m_strTabName = sReturn
   
    'continue enumeration
    EnumChildProc = 1
End Function

et svar