diff --git a/instat/dlgDotPlot.vb b/instat/dlgDotPlot.vb
index cd95b6b5fb8..2f6b60346e0 100644
--- a/instat/dlgDotPlot.vb
+++ b/instat/dlgDotPlot.vb
@@ -55,6 +55,8 @@ Public Class dlgDotPlot
 
         ucrSaveDotPlot.SetDataFrameSelector(ucrDotPlotSelector.ucrAvailableDataFrames)
         ucrSaveDotPlot.strPrefix = "Graph"
+        ucrSaveDotPlot.ucrInputGraphName.SetItemsTypeAsGraphs()
+        ucrSaveDotPlot.ucrInputGraphName.SetDefaultTypeAsGraph()
     End Sub
 
     Private Sub TestOkEnabled()
diff --git a/instat/ucrInputComboBox.vb b/instat/ucrInputComboBox.vb
index 3024306b638..42dad28ab3a 100644
--- a/instat/ucrInputComboBox.vb
+++ b/instat/ucrInputComboBox.vb
@@ -49,7 +49,8 @@ Public Class ucrInputComboBox
     End Sub
 
     Private Sub FillItemTypes()
-        Dim strItems As String()
+        Dim strItems As String()
+
         Select Case strItemsType
             Case "Columns"
                 If ucrDataFrameSelector IsNot Nothing Then
@@ -57,8 +58,14 @@ Public Class ucrInputComboBox
                 End If
             Case "Data Frames"
             Case "Models"
-                cboInput.Items.Add(frmMain.clsRLink.GetModelNames().ToArray)
-            Case "Graphs"
+                cboInput.Items.Add(frmMain.clsRLink.GetModelNames().ToArray)
+
+            Case "Graphs"
+                If ucrDataFrameSelector IsNot Nothing Then
+                    cboInput.Items.Clear()
+                    cboInput.Items.AddRange(frmMain.clsRLink.GetGraphNames(ucrDataFrameSelector.cboAvailableDataFrames.Text).ToArray())
+                End If
+
             Case "Filters"
                 If ucrDataFrameSelector IsNot Nothing Then
                     cboInput.Items.Clear()