StackOverflow2013

Note that there are some explanatory texts on larger screens.

plurals

PO
primarykey
Id
16429248
data
AcceptedAnswerId
0
AnswerCount
0
ClosedDate
CommentCount
1
CommunityOwnedDate
CreationDate
2013-05-07T21:59:06.473
FavoriteCount
0
LastActivityDate
2013-05-07T21:59:06.473
LastEditDate
LastEditorUserId
0
OwnerUserId
1140579
ParentId
16348189
PostTypeId
2
Score
2
ViewCount
0
LastEditorDisplayName
text
Body
As you correctly guessed in the comment above that taking the focus away from notepad will solve your problem. The below code does exactly that. LOGIC: A. Loop through the shape and get it's name. In your scenario it would be something like <code>Chart Meta XML_fbc9775a-19ea-.txt</code> <img src="https://i.stack.imgur.com/M8pDP.png" alt="enter image description here"> B. Use APIs like <code>FindWindow</code>, <code>GetWindowTextLength</code>, <code>GetWindow</code> etc to get the handle of the notepad window using partial caption. C. Use the <code>ShowWindow</code> API to minimize the window Code (tested in VBA-Powerpoint) Paste this code in a module in the above PPTM <pre><code>Private Declare Function FindWindow Lib "User32" Alias "FindWindowA" _ (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function GetWindowText Lib "User32" Alias "GetWindowTextA" _ (ByVal hWnd As Long, ByVal lpString As String, ByVal cch As Long) As Long Private Declare Function GetWindowTextLength Lib "User32" Alias _ "GetWindowTextLengthA" (ByVal hWnd As Long) As Long Private Declare Function GetWindow Lib "User32" (ByVal hWnd As Long, _ ByVal wCmd As Long) As Long Private Declare Function ShowWindow Lib "User32" (ByVal hWnd As Long, _ ByVal nCmdShow As Long) As Long Private Const GW_HWNDNEXT = 2 Private Const SW_SHOWMINIMIZED = 2 Sub Sample() Dim shp As Shape Dim winName As String Dim Ret As Long For Each shp In ActivePresentation.Slides(1).Shapes If shp.Type = msoEmbeddedOLEObject Then winName = shp.Name shp.OLEFormat.Activate Exit For End If Next If winName <> "" Then Wait 1 If GetHwndFromCaption(Ret, Replace(winName, ".txt", "")) = True Then Call ShowWindow(Ret, SW_SHOWMINIMIZED) Else MsgBox "Window not found!", vbOKOnly + vbExclamation End If End If End Sub Private Function GetHwndFromCaption(ByRef lWnd As Long, ByVal sCaption As String) As Boolean Dim Ret As Long Dim sStr As String GetHwndFromCaption = False Ret = FindWindow(vbNullString, vbNullString) Do While Ret <> 0 sStr = String(GetWindowTextLength(Ret) + 1, Chr$(0)) GetWindowText Ret, sStr, Len(sStr) sStr = Left$(sStr, Len(sStr) - 1) If InStr(1, sStr, sCaption) > 0 Then GetHwndFromCaption = True lWnd = Ret Exit Do End If Ret = GetWindow(Ret, GW_HWNDNEXT) Loop End Function Private Sub Wait(ByVal nSec As Long) nSec = nSec + Timer While nSec > Timer DoEvents Wend End Sub </code></pre>
Tags
Title
singulars
PostAcceptedAnswerId
1. This table or related slice is empty.
PostParentId
1. POVBA to Prevent Keyboard Input While a Package Object (XML) is Read into ADODB Stream?
 singulars
 PostTypePostTypeId
 PTQuestion
PostTypePostTypeId
1. PTAnswer
UserLastEditorUserId
1. This table or related slice is empty.
UserOwnerUserId
1. USSiddharth Rout
plurals
PostLinksPostIdRelatedPostId
1. This table or related slice is empty.
PostLinksRelatedPostIdPostId
1. This table or related slice is empty.
PostsAcceptedAnswerId
1. This table or related slice is empty.
PostsParentIdCreationDate
1. This table or related slice is empty.
VotesPostIdCreationDate
1. VO
 singulars
 PostPostId
 PO
 UserUserId
 This table or related slice is empty.
 VoteTypeVoteTypeId
 VTUpMod
2. VO
 singulars
 PostPostId
 PO
 UserUserId
 This table or related slice is empty.
 VoteTypeVoteTypeId
 VTUpMod
CommentsPostId
1. COGreat answer and adequately addresses the question, however, I think for some of the reasons Ilya mentiosn below, keeping the XML content in the document, rather than an OLEObject, is the best approach. Cheers!
 singulars
 PostPostId
 PO
 UserUserId
 USDavid Zemens

Querying!

Guidance

A row detail

Detail views are divided into sections. All the information in the data section comes from columns in the selected row. The other sections display data from other, related rows.

Related data can be related in a to-one or a to-many fashion. Captions of data related in a to-many fashion link to a list view showing a filtered view of the table.

Try moving around until you find a non-empty to-many entry and click on the label to get to one. You can move back to the root by clicking on the database name in the header.