PowerPoint possible bug VBA - Microsoft Community


eventsub windowselectionchange(byval sel selection)

error accessing notespage
selecting notespage sel/activewindow.selection has no shaperange. bug? textrange needs hosting shape.

work round:

if textrange has no parent (shape) guess sel selecting notespage

private sub app_windowselectionchange(byval sel selection)

if sel.type = ppselectiontext then
if sel.textrange.parent nothing , sel.sliderange.hasnotespage then
    application.caption = "word.count( notespage )= " & sel.sliderange.notespage.shapes.placeholders(ppplaceholderbody).textframe.textrange.words.count
  else
    application.caption = "word.count( " & sel.shaperange(1).name & " )= " & sel.shaperange(1).textframe.textrange.words.count
  end if
end if

end sub


 

the parent of textrange isn't slide, it's textframe.

to parent shape, use textrange.parent.parent

to parent slide, textrange.parent.parent.parent

unless selected text part of table; in case, set hair on fire , run screaming weeds.  tables buggy.



Office / PowerPoint / Windows 10 / Office 2016



Comments

Post a Comment

Popular posts from this blog

Outlook Rules not Running Automatically - Microsoft Community

i have 3 rules in outlook 2013 installation set when email arrives check words in body, subject or header.  the rules not seem run automatically.  when run rules manually seem work fine.  i've had problem quite while.  recently, created new outlook profile did not fix issue.  i went , changed srs file srs.old did not fix either. please provide me suggestions fix. hi neil, in order isolate issue, we'd following information: have made recent changes or applied update device prior issue? which email account using? personal email account or work email account? for initial troubleshooting, suggest deleting rules , create again. this, may refer article below: manage email messages using rules looking forward response. Office / Outlook / Windows 10 / ...
Read more

message deleted by transport agent, event: LED=550 4.3.2 - Microsoft Community

i waiting email verification code *** email address removed privacy *** after signing visual studios account. have run message trace see why email not being delivered , given following message: led=550 4.3.2 queue.transportagent; message deleted transport agent i have looked error , saying message being stuck in queue, resolve unfreeze queue. however, in order need exchange toolbox or exchange management, no longer exists office 365 since eac came about. yet haven't found queue viewers in eac can manage , unfreeze queue.   my spam filter set @ 'bypass spam filters'. have whitelisted domain, , have set connection filter allows ip address domain come through. however, after running message trace, email still being dropped. any insight on why happening?  thanks hi suean-work, according description, have try many settings on side. confirm again ‘bypass spam filters’ settings. did mean have c...
Read more

Microsoft Office Exchange Error message - Microsoft Community

Image
received message when trying send email few users outlook desktop client  i checked of users , of them received emails others did not  working within wireless environment in office  any great thank in advance  your message did not reach or of intended recipients.         subject:  fw: panther: hold working sessions gt/rightpont       sent:     6/9/2017 11:26 am   the following recipient(s) cannot reached:         dax scott on 6/9/2017 11:26 am       giulia sergi on 6/9/2017 11:26 am       kia horton on 6/9/2017 11:26 am       micah swigert on 6/9/2017 11:26 am       rob hendricks on 6/9/2017 11:26 am       sarah wallace on 6/9/2017 11:26 am    ...
Read more