ייצוג של צבע פונט בגרף אקסל

[eyalrom1]

אהלן !
יש לי בקשה לעזרה, אולי מישהו יודע...
בנתונים שלי יש טבלה שהנתונים הם מספרים שיכולים להיות בשני צבעי טקסט - שחור או אדום.
הגרפים הם xy, כאשר כל ערך מיוצג כנקודה.
האם יש דרך להגדיר - כאשר צבע טקסט אדום ייצוג x וכאשר צבע טקסט שחור ייצוג y (למשל נקודות עם מילוי ובלי מילוי) ?
תודה רבה מראש, אייל

[מיכאל אבידן]

‏
לא בדקתי - אבל אני מניח שמבוקשך ניתן ליישום בעזרת קוד מקרו [VBA].

אם תצמיד קובץ 'אקסל' ובו הנתונים והגרף - אני מקווה שחברי הפורום יבדקו זאת, עבורך, בזמנם החופשי...

[eyalrom1]

מצ"ב קובץ לדוגמא
אפשר לראות שיש שתי סדרות בגרף, כרגע אין הבדל בין ערכים עם צבע פונט שונה.
המטרה היא שכן יהיה הבדל - למשל צבע פונט אדום יהיה משולש אדום, צבע פונט שחור יהיה מרובע כחול
תודה
אייל

[מיכאל אבידן]

‏
מצ"ב קישור לשאלה דומה ממנו תוכל ללמוד כיצד מבצעים זאת בעזרת קוד מקרו [VBA].

הדוגמה מתייחסת לצבע הרקע של תאי מקור הנתונים ויהיה עליך להתאים את המקרו לדרישותיך.

במקום: Interior.ColorIndex השתמש ב-: Font.ColorIndex

http://www.ozgrid.com/forum/showthread.php?t=49245

שקול לעשות שימוש ב'עיצוב מותנה' בעזרתו ייקבע צבע הגופן, בתאי מקור הנתונים, ואז לא תהיה בעיה לכתוב מקרו פשוט שיעצב את ה'נקודות'.

[נכון לעכשיו, הצבעים בהם צבעת את הנתונים אינם עונים על 'תבנית' מסויימת].
‏

[eyalrom1]

שלום לכולם
כתבתי קוד שמשנה את ההגדרות של הנקודות בגרף לפי צבע הטקסט בנתוני המקור
הבעיה היחידה שלי היא איך להגדיר את הטווח שעליו פועלת הלולאה שבקוד.
הגדרתי טווחים דינמים ברמת ה-workbook והשתמשתי בהם בגרפים, אך לא מצליח להבין איך פונים לטווח הזה בתוך הקוד.
אשמח לעזרה בנושא
תודה מראש,
אייל

מצ"ב הקוד :
Sub change_format()
Dim rngdata, rngcell As Range
Dim i, j, z, a As Long
Dim s As String
On Error Resume Next

With ActiveWorkbook
'i is the number of chart sheets in the workbook
For i = 1 To .Charts.Count
'j is the no. of serieses in the chart
For j = 1 To .Charts(i).SeriesCollection.Count
s = .Charts(i).SeriesCollection(j).Name

Set rngdata = .Charts(i).SeriesCollection(j).Values


' Set rngdata = ThisWorkbook.Names(s).RefersToRange
z = 1
For Each rngcell In rngdata.Cells

If rngdata.Cells(z).Font.ColorIndex = 3 Then
a = rngdata.Cells(z).Value
.Charts(i).SeriesCollection(j).Points(z).MarkerBackgroundColorIndex = xlNone
End If
z = z + 1
Next
Next j
Next i
End With
End Sub