Hi,

Please see https://www.experts-exchange.com/questions/29165136/PowerShell-Office-365-check-available-licenses-Visio-Project.html
Can I give a heldesk group rights to see O365 licenses ONLY: x available for Visio, y for Project etc?

So that would be the link: https://admin.microsoft.com/Adminportal/Home?source=applauncher#/licenses

Please advise.
J.

Hi,

I would like to (via sched job Powershell) be alerted when available licenses for Office 365 Visio and Project are below 10, then send a mail to specific user and take some other  local actions (like running an sccm task).
I can write the sched job and do all other actions BUT the check of available licenses.
Please advise.


This should help?
https://docs.microsoft.com/en-us/office365/enterprise/powershell/view-licenses-and-services-with-office-365-powershell

ConsumedUnits: Number of licenses that you've assigned to users from a specific licensing plan.

In Visio Is there any way to resolve these all at once? Thanks in advance.

I am creating a warehouse floor plan using Visio 2010.  I have all the racks, desks, pallet areas and shelves identified.  In this warehouse I intend on placing vinyl safety stripes on the floor to indicate locations that can not be blocked for safety reasons.  (e.g. in from of fire extinguishers, electrical panels, exit paths, etc,)

I can't seem to find any shape or template that I could use to simulate these safety zones.  Any Suggestions

Hello expert,

There are many things I love about how Visio helps me
create graphics and UML diagrams quickly.

And there are things that drive me bat stuff crazy:
Heres one going back to 2014
https://www.experts-exchange.com/questions/28308448/Visio-2010-Connector-connects-to-unexpected-shape.html

Another one is that it wants me to use Calibri, which I dislike. Visio will not default
to using the grand master of modern sans serif, Helvetica (or Arial).

Saw an article 'How do I create a new theme in Visio 2013?'
https://answers.microsoft.com/en-us/office/forum/office_2013_release-visio/how-do-i-create-a-new-theme-in-visio-2013/eb896730-509a-4cf6-bf54-c56b99468e27
but  it says to select the Variants option in the Design group. Cannot find
Variants or find anything called Variants using search in Visio.

Found ton of stuff on Visio 2010 and 2016. Only other thing I can find is
https://visualsignals.typepad.co.uk/vislog/2013/10/customizing-themes-in-visio-2013.html
This also refers to Variants.

I can create shapes and text boxes with Arial instead of Calibri  and then be very careful to only
copy existing shapes but this pretty restrictive. And if large sections of a drawing are copied into
a new drawing : Boom everything is Calibri again.

And the default is everything is this sort nasty blue with white color font. UGH!

Anyway to get off Calibri slave trail?

Thanks.

 Allen in Dallas

Hello expert,

Have an Excel spreadsheet on complex project called 'SFTP'.
Excel spreadsheet has a ton of detail on project
but there is so much info that it is hard to see where one
customer is in the SFTP set up process.

So created a Visio that details the process and then
inserted the customers showing where the
customers were in the process, attached.

It would be great if clicking on the Visio customer
node would take the user to the line in Excel
for that customer.

Have tried a couple of online tutorials about how to
link Visio to Excel.
https://classroom.synonym.com/visio-objects-excel-13927.html

But this and others like it explain how to link a Visio
shape to Excel data. All that is required for this project
is to link a Visio shape or text to a row or cell in Excel.

Is this possible?

A link has been created in the past using JavaScript
to create a hot spot on a GIF in an HTML file
that links to another HTML file.

But I was hoping that Microsoft had integrated
there apps enough to go between Visio and Excel

Thanks.

Allen
Payer_TPA_SFTP_process_190701.gif

Does anyone have a strong background on Zetafax?  

We took this client over a while ago and they never paid their Zetafax support so now we're stuck.   Currently our client has 7 lines for in bound and out bound faxes that are handled by a Zeta fax server.   They are currently considering moving to another solution and need us to draw out how the process for Zeta fax works.   I do have access to the Zeta Fax server but I do not know where the fax cards route the lines.  

Basically they are asking us to write out a Visio for them showing them the entire work flow and how that can apply to their new solution they are going with.   Really need help with this one.

I'm looking for a macro to help to me count and display direct and indirect subordinates in Visio Org Charts. I found the sample one online below, but I running into issues with the
"s.Shapes(4).Text = dc" portion.

Function RecursiveCount(s As Shape) As String
    Dim count As Integer
    
    count = 0
    dc = s.FromConnects.count - 1
    
    For i = 1 To s.FromConnects.count
       If s.Text <> s.FromConnects(i).FromSheet.Connects(2).ToSheet.Text Then
            count = count + 1
            rc = RecursiveCount(s.FromConnects(i).FromSheet.Connects(2).ToSheet)
            count = count + rc
       End If
    Next
    If dc > 0 Then
        s.Shapes(4).Text = dc
        If (count > 0) And (count <> dc) Then
            s.Shapes(4).Text = s.Shapes(4).Text & "(" & count & ")"
        End If
    End If
    RecursiveCount = count
End Function
 
Sub CountSubs()
    ' select the top most node then run this macro
    Dim s As Shape
    Set s = ActiveWindow.Selection(1)
    
    ' now recursively update counts
    i = RecursiveCount(s)
    
End Sub
 
Sub SetCountsToBlank()
Dim s As Shape
For Each s In ActivePage.Shapes
        If s.Shapes.count >= 4 Then
            s.Shapes(3).Text = ""
            s.Shapes(4).Text = ""
    
        End If
    Next
End Sub

Select all Open in new window

we have citrix environment and some users are facing below issue


Visio/Excel - I am Unable to Save documents.  Frequently when editing diagrams I have found myself unable to save/save-as.  Attempting to select "This PC" often results in the application failing to respond and never
allowing me to choose where I would like to save the document.
 
Visio - When attempting to edit the size of the drawing area, the application hangs for a moment and then displays options in either corrupted text, or attempts to display another language.
 
Outlook - Constant freezes when simply scrolling through my inbox or the body of an email.  Opening, Editing, or Sending meeting invites causes frequent freezes.  
Unable to manage inbox as selecting more than 20 or so objects at a time causes the entire application to freeze.  When organizing emails by sender and simply clicking on the header for the group, application freezes.
regarding the 3rd point, is it because 32 bit application of office can do on 64 bit computer.

Experts,

I have a need to insert a visio document into a word document programmatically what is the easiest way to do this?

A snippet of my code is as follows:

#Create word Instance
$merged_Object = ""|TitleHeadingBar
$Merged_Object.TitleheadingBar = "Test"
$Word = New-Object -ComObject Word.Application
#Make Word Visible
$Word.Visible = $True
#Create Blank Document
$Document = $Word.Documents.Add()
#Create Selection object
$Selection = $Word.Selection

#Alignment Options:
$Alignment = ""|Select Center,Left,Right
$Alignment.Center = "1"
$Alignment.Left = "0"
$Alignment.Right = "2"

#Create Content
$Selection.ParagraphFormat.Alignment = "$($Alignment.Center)"
$Selection.Font.Bold = 1
$Selection.Font.Italic = 1
$Selection.Font.Underline = 1
$selection.TypeText("$($Merged_Object.TitleHeadingBar))")

Select all Open in new window

I Thought I might be able to do the following, but it fails with

$selection.InsertFile("C:\worddoc\wordmerge\Drawingvsdx.vsdx")

Select all Open in new window

Word has encountered a problem.
At line:1 char:1
+ $selection.InsertFile("C:\worddoc\wordmerge\Drawingvsdx.vsdx")
+ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    + CategoryInfo          : OperationStopped: (:) [], COMException
    + FullyQualifiedErrorId : System.Runtime.InteropServices.COMException

Cleanse all exiting shape data
I have created a Visio that uses external data and now want to reuse this with some adaption to new data i will be importing. Does anyone have code that would remove all shape data from all shapes within the document. It has thousand of shapes so doing by hand is not a viable option

Thanks in advance

Hi,

I used below to draw one flow diagram
https://www.draw.io/

when i saved to my computer it is saving as .XML file

I want to save it as image file for my diagram

how can i achieve this

please advise